Private Sub Form_Load()
Text1.Text = "欢迎您来到VB的世界!"
Text1.FontSize = 16
Text1.ForeColor = vbBlue
Text1.Left = 0
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Text1.Left = Text1.Left + 50
If Text1.Left > Form1.Width Then Text1.Left = 0
End Sub
用timer控件