VB编程：利用Object变量传递参数-21

运行效果：

\

程序代码：

Private Sub Command1_Click()

    Dim i As Object

    Set i = Text1

    i.Text = "传递参数"

End Sub

\