首先,在form1上画出commandbutton,写上开始运动,在画一个闹钟timer1,再点击画图工具选择第三种类型画出一个小球。双击小球进行编程,语言如下;
Dim g As Boolean
Dim x As Long
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Dim g As Boolean
Dim x As Long
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub