' **************************************************************
'  Modul:  UserForm1  Typ = Userform
' **************************************************************

Option Explicit
'*********************************************
' Steuerelemente: Ein Label mit Namen Label1
'*********************************************

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 Label1_Click()
	Dim iErfolg As Long
	iErfolg = ShellExecute(0, "open", _
	Label1.Caption, _
	vbNullString, vbNullString, vbNormalFocus)
	If iErfolg < 33 Then _
		MsgBox "Kein Zugriff auf Standardbrowser ", vbExclamation
End Sub
	
Private Sub UserForm_Initialize()
	Label1.Caption = "http://www.online-excel.de/"
End Sub