生成能动图形

 
 首先，在form1上画出commandbutton,写上开始运动，在画一个闹钟timer1,再点击画图工具选择第三种类型画出一个小球。双击小球进行编程

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