在VB中如何把开始和暂停放在同一个按钮里

         在之前验百例的时候，师傅问我，一个暂停的，一个开始的如果做成一个按钮，是不是就方便而且美观很多，我觉得很有道理，而且还非常高大上，但是，这几天因为很多事情把这件事放下了，今天终于有时间，静下心来，好好琢磨琢磨这个问题。

Private Sub Form_Load()                   
 Label1.Left = 0                   'Label离左边的距离为0
 Timer1.Enabled = False            '时间控件在这个过程很重要
End Sub

Private Sub Timer1_Timer()
 Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)  
 '随机产生颜色，也可以用QBcolor（Rnd*15）
 If Label1.Left < Me.Width Then                            
  Label1.Left = Label1.Left + 60               'Label向左移动
 Else
  Label1.Left = 0
 End If
End Sub
Private Sub Command1_click()          '这就是可以用一个按钮解决问题的过程啦
    If Command1.Caption = "开始" Then
        Timer1.Enabled = True
        Command1.Caption = "暂停"
    Else
        Timer1.Enabled = False
        Command1.Caption = "开始"
    End If
End Sub

  
  

   
   

  
  

哈哈哈！做出exe好像不能在这里发表，太遗憾了，看一下成品，说不定，大家对它更感兴趣了呢！