如何调出IE窗口,并赋值地址栏

怎么调出IE窗口,并赋值地址栏?
怎么调出IE窗口,并赋值地址栏?

[解决办法]
Private Declare Function ShellExecute Lib "shell32.dll " Alias "ShellExecuteA " (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()

ShellExecute Me.hwnd, "OPEN ", "http://www.163.com ", vbNullString, vbNullString, 1

End Sub