1:
2:
3:
4:
5:
6:
7:
8:
9:
|
Private 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
Private Sub button_click()
ShellExecute me.hwnd, "open", "http://www.blubb.de", "", "", 1
End Sub |