Private Sub Command1_Click()
'    Timer1.Enabled = ?
End Sub
Private Sub Command2_Click()
    Timer1.Enabled = False
End Sub
Private Sub HScroll1_Change()
'    ? .Interval = HScroll1.Value
End Sub
Private Sub Timer1_Timer()
'    Picture1.Left = ? + 10
End Sub