Private Sub Command1_Click()
  With Winsock1
    .RemotePort = 8080
'    .RemoteHost = "time.gov"
    .RemoteHost = "192.x.xx.xxx"
    .Protocol = sckTCPProtocol
    .Connect
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de