' Visual Basic Programming
' by Mr. Minich
' Ch. 7 Demo #11
' Purpose - to demonstrate the use of simple animation

Option Explicit

Private Sub cmdAnimate_Click()
    Dim J As Integer
    Dim M As Integer
    
    For J = 1 To (Form1.ScaleWidth - shpObject.Width)
        shpObject.Left = shpObject.Left - 1
    Next J
    
    For J = 1 To (Form1.ScaleWidth - shpObject.Width)
        shpObject.Left = shpObject.Left + 1
    Next J
    
    For J = 1 To (Form1.ScaleHeight - shpObject.Height)
        shpObject.Top = shpObject.Top - 1
    Next J
    
    For J = 1 To (Form1.ScaleWidth - shpObject.Width)
        shpObject.Left = shpObject.Left - 1
    Next J
    
End Sub

Private Sub Form_Load()
    shpObject.Top = Form1.ScaleHeight - shpObject.Height
    shpObject.Left = Form1.ScaleWidth - shpObject.Width
End Sub