Ball Getting Stuck!

[SteveCRM]

Sorry, These are there also:
Desclarations:
Dim DeltaX, DeltaY As Integer
FormLoad:
Private Sub Form_Load()
DeltaX = 100
DeltaY = 100
End Sub