Анимация в VB

Private Sub Form1()
       
            Timer1.Enabled = True
 
Private Sub Timer1_Timer()
            Image1.Image = LoadPicture(App.Path & "\lift.bmp")
        End Sub

Private Sub Form_Load()
        MSComm1.CommPort = 1
        MSComm1.Settings = "1200,N,8,1"
        MSComm1.PortOpen = True
        MSComm1.RTSEnable = True
        MSComm1.DTREnable = True
        Command1.Tag = 0
            Timer2.Enabled = True
End Sub
Private Sub Timer1_Timer()
            MSComm1.DTREnable = True
        If MSComm1.CTSHolding = False Then  'опрос вывода CTS (Clear To Send )
            Label1.Caption = 0
            Label1.BackColor = vbBlue
            Picture1.Picture = LoadPicture(App.Path & "\2.gif")
           Else
            Label1.Caption = 1
            Label1.BackColor = vbRed
            Picture1.Picture = LoadPicture(App.Path & "\1.gif")
        End If
End Sub

Private Sub Command1_Click()
Image1.Picture = LoadPicture(App.Path & "\Lift.bmp")
Image2.Picture = LoadPicture(App.Path & "\Dom.bmp")
End Sub

Private Sub Command2_Click()
Picture1.Top = Me.Height - 2 * Picture1.Height
Timer1.Enabled = Not (Timer1.Enabled)
End Sub

Private Sub Form_Load()
Image1.Stretch = True
Timer1.Enabled = False
Timer1.Interval = 15
End Sub

Private Sub Timer1_Timer()
If Picture1.Top > 0 Then
Picture1.Top = Picture1.Top - 10
Else
Timer1.Enabled = False
End If
End Sub