Private Sub Command1_Click()

直接用鼠标点击连接按钮

WebBrowser1.Navigate Text1

End Sub



Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)

用快捷方式Enter激活连接按钮

If KeyCode = 13 Then Call Command1_Click

End Sub-Private Sub Command1_Click () ' directly connected with the mouse to click the button WebBrowser1.Navigate Text1 End Sub Private Sub Command1_KeyDown (KeyCode As Integer, Shift As Integer)'　use shortcut to Enter to activate the Connect button If KeyCode = 13 Then Call Command1_Click End Sub