Question

设计一个不断滚动的字幕条，可以控制滚动速度？

Answer 1

Private Sub Timer1_Timer()
If Label1.Left < 4700 Then
Label1.Left = Label1.Left + 100
Else
Label1.Left = 4700
End If
If Label1.ForeColor = &HFF0000 Then
Label1.ForeColor = &HFF&
Else
Label1.ForeColor = &HFF0000
End If
End Sub

Private Sub Command1_Click()
Timer1.Enabled = True
Label1.Left = 150
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Command3_Click()
End
End Sub

Answer 2

可以

Answer 3

可以的