Problème avec IP

bonjour à tous,
je travail avec vb 2008 je suis entrain de développer une application messagerie LAN mon problème se situe lorsque je receptionne un message comment puisse savoir l'adresse IP de celui qui m'a envoyé le message ?

voilà un bout de code :

Code:

1
2
3
4
Dim Listener As New TcpListener(IPAddress.Any, 65535)
    Dim Client As New TcpClient
    Dim Message As String = ""
    Dim User As String

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try
            If Listener.Pending = True Then
                Me.Show()
                Message = ""
                Client = Listener.AcceptTcpClient()
                Dim Reader As New StreamReader(Client.GetStream())
                While Reader.Peek > -1
                    Message = Message + Convert.ToChar(Reader.Read()).ToString
                End While
' RBx_recu est un RichTextBox
                RBx_recu.Text += User + " dit : " + vbCrLf + Message + vbCrLf + vbCrLf
                RBx_recu.SaveFile(chemin)
            End If
        Catch ex As Exception
            If ex.ToString() <> "" Then
 
            End If
 
        End Try
 
 
    End Sub

une dernière question le IPAdress.Any qu'est ce qu'elle retourne ?

merci d'avance :mrgreen: