Option Explicit
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
 
 
'Die nachfolgende Prozedur startet das Standard-EMail
'Programm, öffnet das Fenster für "Neue Nachrichten"
'und trägt ggf. die Empfängeradresse und den Betreff ein
Public Sub StartEMail(ByVal hWnd As Long, Optional ByVal Empfänger As String = _
  "", Optional ByVal Betreff As String = "")
 
  'hWnd: Fenster-Handle eines Formulars Ihrer Anwendung
  'Empfänger: EMail-Adresse des Empfängers (optional)
  'Betreff: EMail-Betreff (optional)
 
  Screen.MousePointer = 11
  Call ShellExecute(hWnd, "Open", "mailto:" + Empfänger + IIf(Betreff <> "", _
    "?subject=" + Betreff, ""), "", "", 1)
  Screen.MousePointer = 0
End Sub

Private Sub lblemail1_Click()
 
  StartEMail Me.hWnd, Text1.Text, Text2.Text
End Sub