求助！！！毕业设计急啊

我毕设是做基于VBwinsock网络数据传输的我现在的程序能实现一对多的连接现在就差再实现一个功能就是在服务器和客户端界面显示在线用户列表哪位大侠能帮下忙啊感激不尽下面是我现在的源代码
服务器

  Private MaxChan As Integer  '最大通道数




Private Sub Command1_Click()
End

End Sub

  Private Sub Form_Load()

  Dim i As Integer

  MaxChan = 10

   For i = 1 To MaxChan - 1

   Load sckServer(i)

  Next i

  sckListen.LocalPort = "2012"

  sckListen.Listen

  End Sub

  Private Sub sckBusy_Close()

  sckBusy.Close

  End Sub

  Private Sub sckBusy_DataArrival(ByVal bytesTotal As Long)

  sckBusy.SendData "服务器忙，请稍后再连接！"

  DoEvents

  End Sub

  Private Sub sckListen_ConnectionRequest(ByVal requestID As Long)

  Dim i As Integer

  '决定由哪一Winsock接受请求

  For i = 0 To MaxChan - 1

   If sckServer(i).State = 0 Then

   Exit For

   End If

  Next i

  If sckServer(i).State = 0 Then

   sckServer(i).Accept requestID

   Exit Sub

  End If

  '如果所有Winsock都用完则由专门的"忙"Winsock接受请求，以免用户要求得不到响应

  sckBusy.Close

  sckBusy.Accept requestID

  End Sub

  Private Sub sckListen_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

  sckListen.Close

  sckListen.LocalPort = 1000

  sckListen.Listen

  End Sub

  Private Sub sckServer_Close(Index As Integer)

  sckServer(Index).Close

  End Sub

  Private Sub sckServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)

  Dim s As String

  Dim i As Integer

  sckServer(Index).GetData s

  If UCase(Left(Trim(s), 2)) = "PT" Then '判断是否为悄悄话，点对点方式

   If IsNumeric(Mid(Trim(s), 3, 1)) Then

   i = Mid(Trim(s), 3, 1)

   sckServer(i).SendData "Channel " & Index & " " & Right(Trim(s), Len(Trim(s)) - 3)

   DoEvents

   End If

  Else '广播方式

   For i = 0 To MaxChan - 1

   '利用winsock的State属性给所有连接在服务器上的客户发消息

   If sckServer(i).State = 7 Then

   sckServer(i).SendData "Channel " & Index & " " & Trim(s)

   DoEvents

   End If

   Next i

  End If

  lstReceive.AddItem "Channel " & Index & " " & Trim(s)

  End Sub

  Private Sub sckServer_Error(Index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

  sckServer(Index).Close

End Sub
客户端

Private Sub cmdConnect_Click()

   On Error GoTo ErrorPro
   sckClient.RemoteHost = Text1.Text
  sckClient.RemotePort = Text2.Text

   sckClient.Connect

   Exit Sub

ErrorPro:

  MsgBox "服务器未开或网络出错！"

  End

  End Sub

  Private Sub cmdSent_Click()

  sckClient.SendData txtSent.Text

  End Sub

Private Sub Command1_Click()
End '断开连接
End Sub

Private Sub ip_Click()
Text1.Text = "211.83.114.28"
End Sub

Private Sub port_Click()
Text2.Text = "2012"

End Sub

  Private Sub sckClient_Close()

  MsgBox "服务器通道已关闭！"

  End

  End Sub

  Private Sub sckClient_Connect()

  MsgBox "连接成功！"

  cmdConnect.Enabled = False

  End Sub

  Private Sub sckClient_DataArrival(ByVal bytesTotal As Long)

  Dim s As String

  sckClient.GetData s

  IstReceive.AddItem s

  End Sub

Private Sub sckClient_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

  sckClient.Close

  cmdConnect.Enabled = True

  End Sub
--------------------编程问答-------------------- 这么点代码就能毕业？ :) --------------------编程问答-------------------- 额毕业设计又不是只由代码构成的，为啥毕不了业？而且我现在还在扩充功能啊 --------------------编程问答-------------------- 唉继续求助啊有没有哪位大侠施予援手啊

补充：VB ,  网络编程