Dim frmConnectUser As New frmConnectUser
        Dim mySocketPermission As New SocketPermission( _
          Security.Permissions.PermissionState.Unrestricted)
 
        Try
 
            frmConnectUser.StartPosition = FormStartPosition.CenterParent
            frmConnectUser.ShowDialog(Me)
            strUser = frmConnectUser.txtUserLogin.Text
            strIP = frmConnectUser.txtIP.Text
            frmConnectUser.Dispose()
 
            'Der TCP-Client ist eine Subklasse der Socketklasse, welche
            'höhere Funktionalitäten bereitstellt. (z. B. Streaming)
            client = New TcpClient(strIP, PORT_NUM)
 
            'Startet einen Asynchronen Lesevorgang mit der Funktion doread(),
            'um beim Benutzer keine Lags zu verursachen
            client.GetStream.BeginRead(readBuffer, 0, READ_BUFFER_SIZE, _
              AddressOf DoRead, Nothing)
 
            'Sichergehen das das Fenster nach vorne kommt bevor der
            'Connectiondialog geöffnet wird
            Me.Show()
 
            AttemptLogin()
        Catch Ex As Exception
            MsgBox("Es konnte keine Verbindung zum Server hergestellt werden!" _
              & _
                  vbCrLf & Ex.Message, MsgBoxStyle.Exclamation, Me.Text)
        End Try