code Chạy chữ liên tục

Dim c As String, i, j As Integer

Private Sub Form_Load()
Label1.Caption = " CHUC MUNG NAM MOI "
Label1.FontSize = 40
Label1.Font = vntimeH
c = Label1.Caption
i = 1
HScroll1.Min = 15
HScroll1.Max = 72
j = HScroll1.Min

End Sub

Private Sub HScroll1_Change()
Label1.FontSize = HScroll1

End Sub

Private Sub Timer1_Timer()
Label1.Caption = Mid(Label1.Caption, 2, Len(c)) & Left(Label1.Caption, 1)
If i = 1 Then Label1.ForeColor = vbRed
If i = 2 Then Label1.ForeColor = vbYellow

If i = 3 Then Label1.ForeColor = vbGreen

If i = 4 Then Label1.ForeColor = vbBlue

If i = 5 Then Label1.ForeColor = vborange

If i = 6 Then Label1.ForeColor = &H80000013

If i = 7 Then Label1.ForeColor = &H80000010

If i = 8 Then Label1.ForeColor = &H80000001

If i = 9 Then Label1.ForeColor = vbpink

If i = 10 Then Label1.ForeColor = vbpurple

i = 1

If j < HScroll1.Max Then Label1.FontSize = HScroll1
HScroll1 = j
j = j + 1


End Sub