button verlinken

[AEX]

hi ich habe seit gestern vb6 usw und wollte ets mal fragen wie ich nen button verlinken kann zbs mit ner hp

buton heist zbs go on my hp udn dnan komtm die homepage

habs nicht gschafft auser msgbox"blabla" aber ich will ja direkt draufjoinen als würde ich nen link klicken

[Sawyer]

benörigte API:

' Hier die benötigten API-Deklarationen
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

' Diese nachfolgende Prozedur aktiviert den im
' System registrierten Standard-Browser und lädt
' die durch URL angegebene Internetadresse
Public Sub URLGoTo(ByVal hWnd As Long, ByVal URL As String)

' hWnd: Das Fensterhandle des
' aufrufenden Formulars

Screen.MousePointer = 11
Call ShellExecute(hWnd, "Open", URL, "", "", 1)
Screen.MousePointer = 0
End Sub

Aufruf:

URLGoTo Me.hWnd, "www.Google.de"

MfG