codice:
Dim iSockets As Integer

Private Sub Form_Load()
Call bootUp
End Sub

Function bootUp()
DB = App.Path & "\DB\"
Me.Width = 8205
Me.Height = 5340
sckGame(0).LocalPort = ReadINI("server", "port", DB & "CONFIG\CONFIG.INI")
sckGame(0).Listen
txtData.Text = "- Server avviato nella porta: " & sckGame(0).LocalPort & vbNewLine
End Function

Private Sub sckGame_Close(Index As Integer)
sckGame(Index).Close
End Sub

Private Sub sckGame_ConnectionRequest(Index As Integer, ByVal requestID As Long)
iSockets = iSockets + 1
Load sckGame(iSockets)
sckGame(iSockets).Accept requestID
sckGame(iSockets).SendData "@@" & Chr(1)
End Sub

Private Sub sckGame_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim strData As String
sckGame(Index).GetData strData
selectPacket strData, Index
End Sub

Private Sub txtData_Change()
txtData.SelStart = Len(txtData.Text)
End Sub
Questo è tutto il codice...

Però non va...