请问一个问题,高手进

新建一个EXE工程，在窗体上添加一个 Timer，一个 CommandButton，一个 Label，都使用默认名称。在窗体中加入如下代码：

Private i As Integer

Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
Select Case Timer1.Enabled
Case True
Command1.Caption = "停止"
Case False
Command1.Caption = "开始"
End Select
End Sub

Private Sub Form_Load()
Timer1.Interval = 50
Timer1.Enabled = False
Command1.Caption = "开始"
i = 0
End Sub

Private Sub Timer1_Timer()
If i = 9 Then i = 0
i = i + 1
lbl.Caption = i
End Sub

当单击“开始”按钮时，Label1 所显示的数字便会从1~9按顺序不停变化，按钮的文字变为“停止”，单击“停止”，数字便停止变动。

比较简单的代码和说明，不知道是否符合你的要求。如有不明白的地方，请补充说明。

呵呵，先留下个QQ或者邮箱，做好了发给你，但不知道是还符合要求

-----------------------------

楼下的可以，方法差不多，楼主满意吗？
你还可以加点小东西增加情趣，你再加一个text1和一个label2
然后在comman1上面加上代码：
If Label1.Caption = Text1.Text Then
Label2.Caption