Private Sub Form_Load()                   
 Label1.Left = 0                   @H_404_4@'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 @H_404_4@Command1_click()          '这就是可以用一个按钮解决问题的过程啦
    If Command1.Caption = "开始" Then
        Timer1.Enabled = True
        Command1.Caption = "暂停"
    Else
        Timer1.Enabled = False
        Command1.Caption = "开始"
    End If
End Sub

  
  

   
   

  
  @H_403_37@

• 上一篇：VB中spc(n)函数、space(n)函数和ta下一篇：VB与数据库“结合”