窗体如何输出如下：

床  疑
前  是
明  地
月  上
光  霜

一个字一个字的输出，先输出：
床
上
明
月
光
                    再输出：
    疑
    是
    地
    上
    霜
我很急，希望大家尽快告诉我如何解决，感激不尽！！！

没想到没分了，真的抱歉，抱歉

Dim s1 As String
Dim s2 As String
Dim x1 As Long
Dim x2 As Long
Dim y As Long
Dim yg As Long


s1 = "床前明月光"
s2 = "疑是地上霜"

x1 = 300
x2 = 1300

y = 300
yg = 500

Dim i As Long

For i = 0 To Len(s1) - 1
    Me.CurrentX = x1
    Me.CurrentY = y + i * yg
    Me.Print Mid(s1, i + 1, 1)
Next i

For i = 0 To Len(s2) - 1
    Me.CurrentX = x2
    Me.CurrentY = y + i * yg
    Me.Print Mid(s2, i + 1, 1)
Next i

哈哈 版主你不细心啊  你错了 知道为什么吗
你的程序确实是对的 但是不符合提议 啊  
要延迟 呵呵
楼主 你是自己加timer控件
还是我帮你加 啊
或是用sleep
呵呵其实三楼已经给你思路了 我只是路过 不会再问我 呵呵

3楼你就帮他加了吧