程序代码：

Private Sub Command1_Click()

   Dim i As Object

   Set i = Text1

   i.Text = "传递参数"

End Sub