Private Sub BtnSend_Click(sender As System.Object, e As System.EventArgs) _
   Handles BtnSend.Click
        Dim Mc As New SmtpClient(TxTServer.Text)
        Mc.Send("Ich@zuhause.com", "mich@arbeit.com", TxtBetreff.Text, _
          TxtBody.Text)
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus