Visual Basic > Code Snippets

Quivering button

Quivering button

'C 
Private Sub Command1_Click()
MsgBox "You clicked the quivering button"
End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Move Command1.Left + 30, Command1.Top + 30
Command1.Move Command1.Left - 30, Command1.Top - 30
End Sub