VB .net 2010 Winsock Nachfolger mit Events. Wer weis wies geht?

Hallo Zusammen,
ich versuche ganz ehrlich seit 2 1/2 Stunden selbst eine Lösung zu 
finden. Ich will eine Mini Anwendung welche auf eingehende Verbindung 
wartet (TCP/IP). Wenn nun jemand "ankloppft" soll ein Event ausgelöst 
werden in welchem dann die Verbindung angenommen wird. Im nächsten 
Schritt soll dann bei jedem Daten Empfang ein weiterer Event (Sub) 
ausgelöst werden.

Hier mein VB6 Source zu der Aufgabe:

Private Sub Command1_Click()
  Winsock1.SendData Text1.Text & vbCrLf
End Sub

Private Sub Form_Load()
  Text1.Text = ""
  Text2.Text = ""
  Winsock1.Listen
  Debug.Print "Winsock is Listen"
End Sub

Private Sub Winsock1_Close()
  Debug.Print "Winsock Close"
End Sub

Private Sub Winsock1_Connect()
  Debug.Print "Winsock Connect"
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
  Debug.Print "Winsock gets Connection Request"
  Winsock1.Close
  Debug.Print "Winsock Close"
  Winsock1.Accept (requestID)
  Debug.Print "Winsock Acceptet Connection"
End Sub


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim strDummy As String
  Call Winsock1.GetData(strDummy, vbString)
  Text2.Text = Text2.Text & strDummy
End Sub

Kann mir biiiiiitte jemand eine einfache VB .net Lösung aufzeigen? 
Gegoogelt habe ich wie bekloppt. Habe schon was von Listener und Co 
gehört. Allerdings haben die keine Events.

Vielen Dank schon mal an alle die bis hier gelesen haben ;-)

Gruß Philipp