Option Explicit Private Sub cmd_Click() End End Sub Private Sub cmd_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 'Top goes to 7400 'Left goes to 10320 X = Int(Rnd * 10320) + 1 Y = Int(Rnd * 7400) + 1 Dim x2 As Single Dim y2 As Single Dim j As Integer x2 = cmd.Left If X > x2 Then For j = x2 To X Step 1 cmd.Left = j Next j Else For j = x2 To X Step -1 cmd.Left = j Next j End If y2 = cmd.Top If Y > y2 Then For j = y2 To Y Step 1 cmd.Top = j Next j Else For j = y2 To Y Step -1 cmd.Top = j Next j End If End Sub