dim a as string
a=text1.text
form2.text1=a
form2.show

这个只是将form1里text1里输入的结果提交到form2的text1里
例如，我想输入"VB论坛"
在form2.text1里得到的结果为
"VB论坛VB论坛VB论坛VB论坛VB论坛VB论坛VB论坛"
最好不要这样

dim a as string
a=text1.text+text1.text+text1.text+text1.text+text1.text+text1.text+text1.text
form2.text1=a
form2.show
请各位指点一下

Dim a As String
a = Text1.Text
For i = 1 To 6
a = a + Text1
Next
Form2.Text1 = a
Form2.Show

学到了，谢谢！！！
根据你的代码，我想出了
Private Sub Command1_Click()
Dim a As String
a = Text1.Text
For i = 2 To Text2.Text
a = a + Text1
Next
Form2.Text1 = a
Form2.Show
End Sub

[此贴子已经被作者于2007-7-4 14:25:53编辑过]

不用谢,有句话,有困难找民警!