怎样 让鼠标划过一个图片让这个图片变大（突出显示）

Question

怎样 让鼠标划过一个图片让这个图片变大（突出显示）  用mousemove事件怎么实现啊

Answer 1

Dim a, b, c, d, e, f As Double
Private Sub Form_Load()
Image1.Stretch = True
a = Image1.Width
b = Image1.Height
c = Image1.Left - a / 10
d = Image1.Top - b / 10
e = Image1.Left
f = Image1.Top
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 Image1.Width = a
Image1.Height = b
Image1.Left = e
Image1.Top = f
End SubPrivate Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Move c, d, a * 1.2, b * 1.2
End Sub仅仅是一个思路