Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command1.Picture = LoadPicture("c:\2.gif") End SubPrivate Sub Form_Load() Command1.Picture = LoadPicture("c:\1.gif") End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command1.Picture = LoadPicture("c:\1.gif") End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Picture = LoadPicture("c:\2.gif")
End SubPrivate Sub Form_Load()
Command1.Picture = LoadPicture("c:\1.gif")
End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Picture = LoadPicture("c:\1.gif")
End Sub