|
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 Public Const SW_NORMAL = 1 'Now, just place this when you want the link to pop-up. Dim X X = ShellExecute(hwnd, "Open", "http://www.geocities.com/SiliconValley/Park/8710/" _ , &O0, &O0, SW_NORMAL) This is an incredibly easy thing to do. All you need to do is add a simple declaration, and then place the link in it. When the link is activated, the local browser will be started up, and the link will be loaded into it. In a module, place this: |