みんな貴重な意見をありがとう。
一応それっぽく動くようになった。
もっとよい方法があればたのんます。

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim udtCursorPoint As tagPOINT
Dim lngResult As Long
Static flag As Integer

' 現在のカーソル位置を取得
lngResult = GetCursorPos(udtCursorPoint)

With Image4

If flag = 0 And udtCursorPoint.x * Screen.TwipsPerPixelX <= 50 Then
.Picture = LoadPicture("D:\album\image\close02.jpg")
.Refresh
flag = 1
End If

If flag = 1 And udtCursorPoint.x * Screen.TwipsPerPixelX >= 50 Then
.Picture = LoadPicture("D:\album\image\close01.jpg")
.Refresh
flag = 0
End If

End With

End Sub