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