Private Sub OnConnected(ByVal asyn As IAsyncResult)
        If _Protokoll = WinsockProtocol.TCP Then
            Try
                _ClientServerTCP.EndConnect(asyn)
                Me.ClientFinalizeConnection()
            Catch ex As Exception
                ChangeState(WinsockStates.Error)
                CrossThread.RunGui(AddressOf DoHandleError, ex.HResult, _
                  ex.Message)
            End Try
        ElseIf _Protokoll = WinsockProtocol.UDP Then
            Try
                _ClientServerUDP.EndConnect(asyn)
                Me.ClientFinalizeConnection()
            Catch ex As Exception
                ChangeState(WinsockStates.Error)
                CrossThread.RunGui(AddressOf DoHandleError, ex.HResult, _
                  ex.Message)
            End Try
        End If
 
    End Sub
 
    Private Sub ClientFinalizeConnection()
        If _Protokoll = WinsockProtocol.TCP Then
            ChangeState(WinsockStates.Connected)
            _ClientServerTCP.BeginReceive(_byteBuffer, 0, _Paketgröße, _
              SocketFlags.None, AddressOf EmpfangServerClientTCP, Nothing)
            CrossThread.RunGui(AddressOf DoConnected)
        ElseIf _Protokoll = WinsockProtocol.UDP Then
            ChangeState(WinsockStates.Connected)
            _ClientServerUDP.BeginReceive(_byteBuffer, 0, _Paketgröße, _
              SocketFlags.None, AddressOf EmpfangServerClientUDP, Nothing)
            CrossThread.RunGui(AddressOf DoConnected)
        End If
 
    End Sub
 
#End Region