Static p As Integer = 1
Dim s As String = "这题我想做出的结果是光标从左往右移 一个一个字显示" & vbCrLf & "还可以回车换行"
Dim m As String '临时字符串变量
If p = Len(s) Then
Timer1.Enabled = False
'TextBox1.Text = s
Else
m = Mid(s, p, 1) '新字符串=MID(指定字符串，指定开始位置，指定字符串个数不指定则到字符串结尾)
TextBox1.Text = TextBox1.Text & m
p = p + 1
End If
End Sub
