运行效果:


程序代码:

Private Sub Command1_Click()

   Dim i As Object

   Set i = Text1

   i.Text = "传递参数"

End Sub