Private Declare Function CreateURLMoniker Lib "urlmon.dll" (ByVal base As Long, ByVal url As Long, ByRef pMoniker As Object) As Long
Private Declare Function ShowHTMLDialog Lib "mshtml.dll" (ByVal hwnd As Long, ByVal pMoniker As Long, ByRef argIn As Variant, ByVal options As Long, ByRef argOut As Variant) As Long
Sub test()
Dim IMoniker As Object
Dim szUrl As String, szOptions As String
Dim vArgOut, vArgIn
Private Declare Function CreateURLMoniker Lib "urlmon.dll" (ByVal base As Long, ByVal url As Long, ByRef pMoniker As Long) As Long
Private Declare Function ShowHTMLDialog Lib "mshtml.dll" (ByVal hwnd As Long, ByVal pMoniker As Long, ByVal argIn As Long, ByVal options As Long, ByVal argOut As Long) As Long
Private Sub Command1_Click()
Dim x As Long
Dim szUrl As String
szUrl = "http://www.csdn.net"
CreateURLMoniker 0, StrPtr(szUrl), x