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控件
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024