code đoạn ký tự chạy

Dim c As String, i As Integer

Private Sub Command1_Click()
Form1.Hide
Form2.Show
End Sub

Private Sub Form_Load()
Label1.Caption = "chao mung ban den lop tmdt 6a "
Label1.FontSize = 30
c = Label1.Caption
i = 1
End Sub

Private Sub Timer1_Timer()
If i < Len(c) Then Label1.Caption = Left(c, i)
i = i + 1
End Sub