Sub Process_Globals
Private SD_RollingBall2 As SD_RollingBall
End Sub
Sub Ball
Sleep(1000)
SD_RollingBall2.Move(800,300,300)
Wait For SD_RollingBall2_MovementCompleted
SD_RollingBall2.Rebound(2)
Wait For SD_RollingBall2_ReboundCopmpleted
Sleep(100)
SD_RollingBall2.Stop
End Sub