Option Explicit
Dim X As Integer, Y As Integer, H As Integer, V As Integer

Private Declare Function ShowCursor Lib "user32" _
    (ByVal bShow As Long) As Long
Dim blnshow As Boolean
Private Sub Form_Load()
    blnshow = True
    X = 200   'horizontal speed
    Y = 200   'vertical speed
    H = 200
    V = 200
    blnshow = Not blnshow
    ShowCursor blnshow
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static count As Integer         'code to make program close
  If count > 2 Then
    If Not blnshow Then
        ShowCursor True
    End If
    End  'closes the program
  Else
    count = count + 1
  End If
End Sub

Private Sub Timer1_Timer()
    ball.Move ball.Left + X, ball.Top + Y       'code to make the ball move

    If ball.Top + ball.Height > Me.ScaleHeight Then     'if ball hits bottom
        Randomize
        Y = Rnd * -1500                                       'make ball go up
    End If

    If ball.Left + ball.Width > Me.ScaleWidth Then      'if ball hits right
        Randomize
        X = Rnd * -1500                                         'make ball go left
    End If

    If ball.Top < 0 Then        'if ball hits top
        Randomize
        Y = Rnd * 1500                  'make ball go down
    End If

    If ball.Left < 0 Then       'if ball hits left
        Randomize
        X = Rnd * 1500                  'go right
    End If
End Sub