Public Class frmMain
 
    Private Client As New Net.Sockets.TcpClient
    Private POP3Stream As Net.Sockets.NetworkStream
    Private Connected As Boolean = False
 
 
    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
 
    Private Sub btnOptions_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnOptions.Click
        Dim fOptions As New frmOptions
        fOptions.ShowDialog()
    End Sub
 
    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        'Check for mail at application startup
        Me.Connect(My.Settings.Server, My.Settings.Username, _
          My.Settings.Password)
 
    End Sub
 
    Private Sub Connect(ByVal Server As String, ByVal User As String, ByVal _
      Password As String)
        'Eure Connect-Methode...
 
 
 
        Dim Delete As String = "DELE "
        Dim GetMessage As String = "RETR "
        Dim List As String = "LIST"
        Dim Password1 As String = "PASS "
        Dim Quit As String = "QUIT"
        Dim ServerConfirm As String = "+OK"
        Dim ServerNoMoreData As String = "."
        Dim User1 As String = "USER "
 
 
 
        If Connected = True Then Me.Disconnect()
        Try
            Me.Client.Connect(Server, 110)
            Me.POP3Stream = Me.Client.GetStream
            Me.CheckResponse(Me.GetResponse)
            Me.Send(Commands.User1 + User)
            Me.CheckResponse(Me.GetResponse)
            Me.Send(Commands.Password1 + Password)
            Me.CheckResponse(Me.GetResponse)
            Me.Connected = True
        Catch ex As Exception
            Me.Disconnect()
            Throw New ApplicationException(ex.Message, ex)
        End Try
 
    End Sub