运行效果:
VB编程:利用Object变量传递参数-21_经验分享

程序代码:
Private Sub Command1_Click()
    Dim i As Object
    Set i = Text1
    i.Text = "传递参数"
End Sub