参考答案

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