如何用VB制作字幕在窗体中左右移动

dafeng1230 你 B C 啊 改一下不就行了吗 给个思路 你还挑刺 有本事你写上来啊

Private Sub Form_Load()

Timer2.Enabled = False
Timer1.Interval = 500
Timer2.Interval = 500
End Sub

Private Sub Timer1_Timer()

If Label1.Left - 200 > 0 Then
Label1.Left = Label1.Left - 200
Else
Label1.Left = 0
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub

Private Sub Timer2_Timer()

If Label1.Left + Label1.Width < Form1.Width Then
Label1.Left = Label1.Left + 200
Else
Timer2.Enabled = False
Timer1.Enabled = True
End If
End Sub

Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 100
If Label1.Left + Label1.Width >= Form1.Width Then
Timer2.Enabled = True
Timer1.Enabled = False
End If
End Sub

Private Sub Timer2_Timer()
Label1.Left = Label1.Left - 100
If Label1.Left = 0 Then
Timer1.Enabled = True