制作滚动的字幕
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
多重随机标签