winsock broadcast client to server

[morkie]

I found a thread about "VB6 - Winsock, Auto find server using UDP Broadcast (LAN ONLY)" post by CVMichael and reply of Aan2702 his post and code and sample attached file i test it and that's what i want when any another 2 PC running U'r winsock sever application. All winsock server
send(Broadcast) their IP addres to PC whose Running Winsock Client(Bind).

what if all running winsock server and their multiple winsock client will send(broadcast) their ip address to PC whose running as server and putting it into all listbox...can you help with that, that's what i want in your code in CVmichael thread is server send(broadcast)their ip address whos running as a client...

And me as a server....

Thanks.....

Here's the file of they use

From Server:

Private Sub Command1_Click()
On Error Resume Next
For x = 420 To 440
Winsock1.Close
Winsock1.RemoteHost = "255.255.255.255"
Winsock1.RemotePort = x
Winsock1.SendData Winsock1.LocalIP
Next
Timer1.Enabled = True

End Sub

Private Sub Form_Load()
Winsock1.Close
Me.Caption = "BoardCast Server"
End Sub

Private Sub Timer1_Timer()
Command1_Click
End Sub

From Client:

Dim IP As Integer
Private Sub Form_Load()
Me.Caption = "BoardCast Client"
IP = 420
On Error GoTo errIP

Winsock1.Bind IP
Exit Sub
errIP:
IPIncrease
Exit Sub
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
On Error GoTo errIP
Dim strData As String
Winsock1.GetData strData
Text1.Text = strData
Exit Sub
errIP:
IPIncrease
End Sub

Sub IPIncrease()
On Error GoTo errIP
IP = IP + 1
Winsock1.Close
Winsock1.Bind IP
Exit Sub
errIP:
IPIncrease

End Sub