Anonymous

Private Sub sckServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)
    Dim strInText() As String
    
    sckServer(0).GetData strInText()        ' What is coming in?
    
    strInText = Split(strInText, ":", vbTextCompare)
    
    MsgBox strInText(0)
    MsgBox strInText(1)
    MsgBox strInText(2)
    
    lstOnlineUsers.AddItem strUsernickname
    
    frmPrivmsg.Show                                                      ' Open message window
    frmPrivmsg.txtPrivmsg.Text = _
    frmPrivmsg.txtPrivmsg.Text & strInText(3) & vbCrLf             ' Display incoming message and do a carriage return and line feed.
End Sub