窗体上以打字效果显示字符
来源:不祥

Dim myStr As String
Dim myStrLen As Integer
Dim i As Integer

Private Sub Form_Load()
i = 1
myStr = "同仇敌忾，对抗非典！" '"输入需打字的内容"
Me.TimerInterval = 300
End Sub

Private Sub Form_Timer()
myStrLen = Len(myStr)
If i > myStrLen Then
标签0.Caption = ""
Else
标签0.Caption = Mid(myStr, 1, i)
End If

'控制循环显示
If i <= myStrLen Then
i = i + 1
Else
i = 1
End If
End Sub