Private Sub mnuOper_Click(Index As Integer)
    'Select Case ?
        Case 1
            Form2.Show
            Form1.Hide
        Case 2
    '      Timer1.Enabled =?
        Case 3
            End
    End Select
End Sub
Private Sub Timer1_Timer()
    Picture1.Left = Picture1.Left + 100
    'If Picture1.Left + Picture1.Width >= ? Then
        'Picture1.Left = ?
    End If
End Sub
Private Sub Command1_Click()
    Form1.Show
    Form2.Hide
End Sub