教师初级职称评定表:vb winsock 问题

我做了一个服务器 能和 多个客户端 建立连接..但是不知道怎么接收客户端发来的信息.服务器 代码如下:帮忙修改修改.
Private onl(100, 0)
Private index, cur, i
Private Sub Form_Load()
cur = 0
Winsock1.LocalPort = 3333
Winsock1.Listen 'Socket在程序启动时监听端口333
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) '接收到对方联接
If index = 0 Then '主Winsock——Winsock(0)发生消息
i = 1
While i <= cur And onl(i, 0) = 0 '在以前的Winsock中找到空闲的Winsock
i = i + 1
Wend
If i <= cur Then '在当前装载的Socket中发现有用户已经离开
Winsock2(i).LocalPort = 0 '使用现成的Socket
Winsock2(i).Accept requestID '接收
onl(i, 0) = 0 'Winsock（i）被占用
Else '在当前装载的Socket中没发现有用户离开
cur = cur + 1 '当前接收端口增加
Load Winsock2(cur) '生成新的' Winsock
Winsock2(cur).LocalPort = 0
Winsock2(cur).Accept requestID '接收
onl(cur, 0) = 0 'Winsock（cur）被占用
End If
End If
End Sub
Private Sub Winsock1_Close() '对方Socket关闭触发这个事件
Winsock1.Close '关闭自己
Form_Load
MsgBox "已断开连接", 0, "错误"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '收到数据触发这个事件
Dim str As String

Winsock1.GetData str '收到数据时，Winsock1把数据写入缓存str
Text1.Text = Text1.Text + str + Chr(13) + Chr(10)
Text1.SelStart = Len(Text1.Text)
'在文本框中显示接收的数据
End Sub