Dim Msg As New MailMessage
        Dim myCredentials As New System.Net.NetworkCredential
        myCredentials.UserName = "GESMarpingen@web.de"
        myCredentials.Password = "gesmhacked"

        Msg.IsBodyHtml = False

        Dim mySmtpsvr As New SmtpClient()
        mySmtpsvr.Host = "smtp.web.de"
        mySmtpsvr.Port = 25

        mySmtpsvr.UseDefaultCredentials = False
        mySmtpsvr.Credentials = myCredentials

        Try
            Msg.From = New MailAddress("GESMarpingen@web.de")
            Msg.To.Add("reimundsc@t-online.de")
            Msg.Subject = "TCX - Merry Spamming"
            Msg.Body = "SpammBot 1.1 by TCX"
            mySmtpsvr.Send(Msg)
            MsgBox("E-Mail gesendet.", MsgBoxStyle.Information, Title:="Information")
        Catch ex As Exception
            MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString)
        End Try