VB 如何实现百度搜索（求源码）？

上面的按钮点击之后，旁边的输入框出现默认文字1（点击确认按钮可以打开百度搜索）

下面的按钮点击之后，旁边的输入框出现默认文字2（同上）

Private Sub Command1_Click()
Text1.Text = "默认文字1"
Shell "C:\Program Files\Internet Explorer\iexplore.exe 
=" & Text1.Text, vbNormalFocus
End SubPrivate Sub Command2_Click()
Text1.Text = "默认文字2"
Shell "C:\Program Files\Internet Explorer\iexplore.exe 
=" & Text1.Text, vbNormalFocus
End SubPrivate Sub Form_Load()
Text1.Text = ""
End Sub

可以私聊我~