Private Sub Form_Load()
    Picture1(0).Left = 0
    Picture1(0).Top = 100
    For k = 1 To 7
'        Picture1(k).Visible =?
    Next
End Sub
Private Sub Command1_Click()
'    Timer1.Enabled =?
End Sub
Private Sub Command2_Click()
    Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
    Static i As Integer
    Picture1(i).Visible = False
    i = i + 1
'    If i = ? Then
'        i =?
    End If
    Picture1(i).Visible = True
End Sub