problems with chat program

[BladeZ]

as pino told me to do im posting this here

the problems are that my client wont send data or i might be to the server for everyone to see but the server isnt getting any of the info to display heres the send function of my code along with the data arrival of the server which is the same as the code for client

Private Sub cmdsend_Click()
For i = 0 To server.ubound - 1
        If client(i).State = sckConnected Then
client(i).SendData txtnickname.Text & ": " & txtmsg.Text
        End If
   DoEvents
Next i
txtchat.Text = txtchat.Text & txtnickname.Text & ": " & txtmsg.Text & vbNewLine
txtmsg.Text = ""
End Sub

Private Sub winsock_DataArrival(ByVal bytesTotal As Long)
client(i).GetData msgarrived, vbString
txtchat.Text = txtchat.Text & msgarrived & vbNewLine
End Sub