Private Sub llbMail_LinkClicked(ByVal sender As System.Object, ByVal e As _
  System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles _
  llbMail.LinkClicked
 
            ' E-Mail Sende Adresse
            Dim sRecipient As String = "Hermann@irgentwo"
            ' Nachrichtentext
            Dim sBody As String = "Hallo Hermann"
            ' Betreff
            Dim sSubject As String = "Rückmeldung zum Programm: Das Problem"
            ' Mail-Parameter
            Dim PMail As String = (String.Format("{0}?subject={1}& body={2}", _
                                   sRecipient, sSubject, sBody))
 
                Using oProc As New System.Diagnostics.Process
 
                    oProc.StartInfo.FileName = ("mailto:" & (PMail))
                    oProc.Start()
                    llbMail.Enabled = False
 
                End Using

          Using oProc As New System.Diagnostics.Process
 
                    oProc.StartInfo.FileName = ("mailto:" & (PMail))
                    oProc.Start()
                    oProc.WaitForExit()
                    llbMail.Enabled = False
 
                End Using