Public Sub NavigateTo(Url As String) Dim l As Long l = ShellExecute(frmMain.hwnd, vbNullString, Url, vbNullString, vbNullString, 3) If l < 32 Then MsgBoxEx "不能浏览 '" & Url & "'。" & vbCrLf & GetSystemError(Err.LastDllError), vbExclamation End If End Sub
Dim l As Long
l = ShellExecute(frmMain.hwnd, vbNullString, Url, vbNullString, vbNullString, 3)
If l < 32 Then
MsgBoxEx "不能浏览 '" & Url & "'。" & vbCrLf & GetSystemError(Err.LastDllError), vbExclamation
End If
End Sub