运行效果:
程序代码:
Private Sub Command1_Click()
Dim i As Object
Set i = Text1
i.Text = "传递参数"
End Sub
微信扫码登录