既出の既出かもしれんが、カーソルが乗ったときイメージＢＯＸの画像を
入れ替える方法頼む。

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

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

With Image4

If udtCursorPoint.x * Screen.TwipsPerPixelX <= .Left + .Width _
And udtCursorPoint.y * Screen.TwipsPerPixelY <= .Top + .Height Then
Debug.Print udtCursorPoint.x * Screen.TwipsPerPixelX
.Picture = LoadPicture("D:\album\image\close02.jpg")
.Refresh
Else
.Picture = LoadPicture("D:\album\image\close01.jpg")
.Refresh
End If

End With

End Sub

↑いまいち反応鈍いんだよね(*´д`*)ｱﾊｧ…