Fareden Kaçan Buton Yapmak (Şaka İçin)(visual basic)

Formumuza bir adet buton ekliyoruz. ve aşağıdaki kodu
formumuza aynen yapıştırıyoruz...

Kod:
Sub mouse_geldi(Button As CommandButton)
If Button.Left = 100 And Button.Top = 100 Then
Button.Left = 100
Button.Top = 2500
ElseIf Button.Left = 100 And Button.Top = 2500 Then
Button.Left = 2500
Button.Top = 2500
ElseIf Button.Left = 2500 And Button.Top = 2500 Then
Button.Left = 2500
Button.Top = 100
ElseIf Button.Left = 2500 And Button.Top = 100 Then
Button.Left = Screen.TwipsPerPixelX / 2
Button.Top = Screen.TwipsPerPixelY / 2
Else
Button.Left = 100
Button.Top = 100
End If

End Sub

Private Sub Command1_Click()
MsgBox "niye entere yada spacebar a basıyon ?" & vbCrLf & "Sıkıysa mouseyle bassana..Hahahah", vbInformation + vbOKOnly, "visualbasic.talebe.net"

End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
mouse_geldi Command1
Form1.SetFocus
End Sub

Private Sub Form_Load()
Me.ScaleMode = 1
Command1.Left = 165
Command1.Top = 135
Me.BorderStyle = 1
Me.Caption = "visualbasic.talebe.net"
Me.Width = 4000
Me.Height = 3900
End Sub