Bài 1 vật dao động

Bài 1:Viết chương trình cho vật chuyển động có Hscroll1, Hscroll2,
m1, v1
Dim i As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Command3_Click()
Shape1.Left = 10
i = 0
HScroll1.Value = HScroll1.Min
HScroll2.Value = HScroll2.Min
End Sub
Private Sub HScroll1_Change()
Label1.Caption = " m1= " & HScroll1.Value
Shape1.Top = Shape1.Top - HScroll1.Value
Shape1.Left = Shape1.Left - HScroll1.Value
Shape1.Width = Shape1.Width + 2 * HScroll1.Value
Shape1.Height = Shape1.Height + 2 * HScroll1.Value
End Sub
Private Sub HScroll2_Change()
Label2.Caption = "v1=" & HScroll2.Value
End Sub
Private Sub Timer1_Timer()
i = i + 1
Shape1.Left = Shape1.Left + i * HScroll2.Value
If i = 50 Then
i = 0
Shape1.Left = 10

End If
End Sub