Option Explicit
Dim a As Single
Dim b As Integer
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Height = a * 1.1
Command1.Width = b * 1.1
End Sub
Private Sub Form_Load()
a = Command1.Height
b = Command1.Width
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Height = a
Command1.Width = b
End Sub
要准备两张背景图片，然后切换。
不会（ _ )
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024