如何实现窗体递归调用？

Question

有一个窗体，上面一个TEXT，一个BUTTON，当点击BUTTON后，再NEW一个旧窗体的副本，并将旧窗体的TEXT传递到新窗体上，将新的窗体的TEXT=旧窗体的TEXT+“1”，如此递归调用如何实现？代码如何写？请赐教！

Answer 1

Private Sub Command1_Click()
  Dim FrmNew As Form1
  Set FrmNew = New Form1
   FrmNew.Show
   FrmNew.Text1 = Val(Me.Text1) + 1
End SubPrivate Sub Form_Load()
  Me.Text1.Text = "0"
End Sub