блок схема по бейсику

ооочень легко! но я чего-то не понимаю, нужно составить блок схему по анимации
Dim kadr(4) As Picture
Dim i, m As Integer
Dim dx As Integer
Private Sub Command1_Click()
dx = -200
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
dx = 200
Timer1.Enabled = True
End Sub
Private Sub Command3_Click()
Timer1.Enabled = False
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Form_Load()
'загрузка фона
Set fon = LoadPicture("C:\temp\anim\fon.jpg")
Picture1.Picture = fon
'загрузка рисунков
Set kadr(1) = LoadPicture("C:\temp\anim\3.gif")
'Image1.Picture = kadr(1)
Set kadr(2) = LoadPicture("C:\temp\anim\4.gif")
Set kadr(3) = LoadPicture("C:\temp\anim\2.gif")
Set kadr(4) = LoadPicture("C:\temp\anim\1.gif")
i = 0
End Sub
Private Sub HScroll1_Change()
If dx < 0 Then
dx = -50 * HScroll1.Value
Else
dx = 50 * HScroll1.Value
End If
End Sub
Private Sub mnuend_Click()
End
End Sub
Private Sub mnustart_Click()
dx = -200
Timer1.Enabled = True
End Sub
Private Sub mnustop_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
i = i + 1
If dx > 0 Then
If i > 4 Then i = 3
Image1.Picture = kadr(i)
Image1.Left = Image1.Left + dx
End If
If dx < 0 Then
If i > 2 Then i = 1
Image1.Picture = kadr(i)
Image1.Left = Image1.Left + dx
End If
End Sub
таймер отдельно