生成能动图形

Dim gAs Boolean
Dim xAs Long
    再双击开始运动按钮，编写程序语言
PrivateSub Command1_Click()
Timer1.Enabled= True
End Sub
    再双击窗体，编写程序语言
Private Sub Form_Load()
g = True
x = Shape1.Left
End Sub
    再双击闹钟，编写程序语言
Private Sub Timer1_Timer()
If g Then
x = x - 300
Else
x = x + 300
End If
 If x < 0 Or x > (Me.ScaleWidth - Shape1.Width)Then
g = Not g
End If
 Shape1.Move x
 End Sub