i have an .INI file in the client, just set what client_name you would want,
meanwhile i have temporary solution, every event i just call below to refresh the connection.
"but i think there are still easiest way to solve this"

Code:
Sub REFRESH_SOCKET()
Dim ctr1 As Integer,ctr2 As Integer

 On Error Resume Next
  For ctr1 = 1 To a
   cmdPC(ctr1).ToolTipText = "Disconnected"
   sckServer(ctr1).Close
  Next
   iSockets = 0
  'For ctr2 = 1 To a
  ' If cmdPC(ctr2).ToolTipText = "Disconnected" Then
    'imgPC(ctr2).Picture = imgDC
  ' End If
  'Next
call  NO_OF_CONNECTIONS