关于timer的

是按文本框的视觉显示上的一行行的来输出,还是按一个回车算1行啊?

后面很容易,只要用vbcrlf来分割text1中的内容就行了..
前者就比较难,需要使用sendmessage来操作文本框,按行来得到内容

实现起来,就只需要在timer中添加代码..一个计数器,累加直到文本框中的最后一行,每次事件就是输出1行内容.

Private Sub Command1_Click()
Command1.Visible = False
<Print "sfg sfg sdfg sdfgvsf">
End Sub

Private Sub Timer1_Timer()
Command1.Value = Not Command1.Value
End Sub
你只需要把<*****>的改成你的就可以了