Co je na tomto spatne? – Offtopic – Fórum – Programujte.com

Private Sub Command1_Click()
Port = InputBox("8080")
Winsock1.LocalPort = Port
Winsock1.Listen
command1.visible = false
command2.visible = true
End Sub
Private Sub Winsock1_ConnectionRequest
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival
Winsock1.GetData Data, vbString, bytesTotal
List1.Additem (data)
End Sub
Private Sub Command2_Click()
Winsock1.close
End Sub

Pokud alespoň nenapíšeš co by to mělo konkrétně dělat a co to dělá, tak jen těžko ti někdo poradí.

a proc to davas do Off Topicu, nepatri tohle spis do sekce Visual Basic (podle toho kodu bych tipnul, ze to bude VB )