Private Declare Function GetDesktopWindow Lib "user32" () As Long
 
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()
   'EMail Client Starten
   Call ShellExecute(GetDesktopWindow(), "Open", _
     "mailto:vbarchiv_ist_super@vbarchiv.net", "", "", 1)
End Sub

Cu

Wolfgang