是在一个按钮中调用另一个按钮吧,使用Call 就可以了,例:
Private Sub Command1_Click()
Call Command2_Click
End Sub
在所有函数之外定义一个变量:
dim tmpURL as str
按下按钮1时:
tmpURL="http://这里输入地址"
按下按钮2时:
Private sub command2_Click
Set Web_V1 = WebBrowser1.Object
WebBrowser1.Navigate2 tmpURL
end sub