' Verwendung von GotoWeb und SendEmail: 
' Fügen Sie ein Label ein, vorzugsweise ForeColor=vbBlue, Font.UnderLine=True 
' Klickereignis: 
' Sub Label1_Click() 
' GotoWeb 
' End Sub

Public 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_SHOWNORMAL = 1
Public Const URL = "http://www.st-software.at"
Public Const email = "st-software@aon.at"


Public Sub GotoWeb()
  Dim Success As Long 
  Success = ShellExecute(0&, vbNullString, URL, vbNullString, "C:\", SW_SHOWNORMAL)
End Sub 

Public Sub SendEmail()
Dim Success As Long 
 
  Success = ShellExecute(0&, vbNullString, "mailto:" & email, vbNullString, _
  "C:\", SW_SHOWNORMAL)
End Sub