Question

vb中按一个按钮输入另一个按钮的执行命令

Answer 1

是在一个按钮中调用另一个按钮吧，使用Call 就可以了，例：

Private Sub Command1_Click()
Call Command2_Click
End Sub

追问

我的意思是点击command1，就能将command2的代码改成
Private sub command2_Click
Set Web_V1 = WebBrowser1.Object
WebBrowser1.Navigate2 http://174.122.1.1
end sub

追答

原理上不可能实现的，程序编译好之后代码便不可修改，不过听说可以在程序内部嵌入编译器来达到类似的目的，不过即使可以实现估计也是非常的复杂，不知道你想实现什么具体的功能，说来听听，或许可以使用其他简单的方法来实现。

追问

类似于快捷方式
就是一个空按钮，什么代码也没有，这个当做快捷方式
另一个按钮，来设置这个快捷方式，让它的指向地址变一下。

追答

Option Explicit
Dim State As Boolean '状态变量，用于标识是否已经输入了网址
Dim Url As String   '用于存储输入的网址

Private Sub Command1_Click()
Url = InputBox("请输入网址")
If Len(Url) Then    '如果Url不为空
State = True        '表示已经输入
Else
MsgBox "网址为空"
End If
End Sub

Private Sub Command2_Click()
If State Then    '判断是否已经输入
Dim web_v1 As New WebBrowser_V1    '设置对象
Set web_v1 = WebBrowser1.Object   
WebBrowser1.Navigate2 Url    '如果输入了，则打开Url中储存的网址
Set web_v1 = Nothing    '用完了要释放对象
Else    '如果没有
Exit Sub    '退出Command2过程
End If    
End Sub

Private Sub Form_Load()
State = False    '初始化为未输入
End Sub

Answer 2

在所有函数之外定义一个变量：
dim tmpURL as str

按下按钮1时：
tmpURL="http://这里输入地址"

按下按钮2时：
Private sub command2_Click
Set Web_V1 = WebBrowser1.Object
WebBrowser1.Navigate2 tmpURL
end sub