Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
        Dim config = New ESUsoft.Smtp.SmtpConfig
        config.Host = "smtp.esu-soft.de"
        config.Username = ""
        config.Password = ""
        config.Timeout = 30
        config.Logging = True
        Dim message = New ESUsoft.Smtp.Message
        message.HTMLBody = True
        message.From = New ESUsoft.Smtp.Email("info@esu-soft.de", "Sender")
        Dim to_ = New System.Collections.ArrayList
        to_.Add(New ESUsoft.Smtp.Email("info@esu-soft.de", "Receiver"))
        message.To = to_
        message.Priority = ESUsoft.Smtp.Message.MailPriority.High
        message.Subject = "Subject..."
        message.Body = "Body text...<img src='c:/image.gif'>"
        Dim Smtp = New ESUsoft.Smtp.Smtp
        Smtp.Config = config
        Smtp.Message = message
        Dim reply As Boolean = False
        reply = Smtp.SendMail()
        If (reply) Then
            MsgBox("Transmitted successfully")
        Else
            MsgBox("Error")
        End If
    End Sub