Userlist problem in vb2008

[blackone]

Hi all!
I was build networkchat in vb6 but now I wonna make new version in vb 2008 and I have problem with userlist.
When I run once chat it work fine but when someone else connect he can't see all userlist he see only his name not all userlist

sorry for bad english

can you halp me please

Function DataParsing(ByRef strData As String, ByRef Index As Short) As Object
        On Error Resume Next
        
        Dim Command_Renamed, Info As String
        Dim i As Short
        
        Command_Renamed = VB.Left(strData, InStr(strData, " ") - 1)
        Info = VB.Right(strData, Len(strData) - InStr(strData, " "))
        
        Dim User, UserText As String
        Dim UserE As Boolean
        Select Case Command_Renamed
            
            Case "Message"
                
                For i = 1 To wskServer().UBound
                    Call wskServer(i).SendData("Message " & Info)
                    System.Windows.Forms.Application.DoEvents()
                Next i
 
            Case "Join"
                If CheckUsername(Info) = True Then
                    Call wskServer(Index).SendData("ErrUsername " & Info)
                    System.Windows.Forms.Application.DoEvents()
                    Return ""
 
                    Exit Function
                End If
                
                Num = Num + 1
                lblCount.Text = CStr(Num)
                
                Call lstUsers.Items.Add(Info)
                strUsers(Index) = Info
                System.Windows.Forms.Application.DoEvents()
                
                For i = 0 To lstUsers.Items.Count
                    If Me.lstUsers.Items(i) <> "" Then
                        Call wskServer(Index).SendData("UserList " & lstUsers.Items(i))
                        System.Windows.Forms.Application.DoEvents()
                        System.Windows.Forms.Application.DoEvents()
                    End If
                    System.Windows.Forms.Application.DoEvents()
                Next i
                System.Windows.Forms.Application.DoEvents()
                'Call wskServer(Index).SendData("Welcome " & txtName.Text)
                'System.Windows.Forms.Application.DoEvents()
                'Call wskServer(Index).SendData("Msgday " & txtMessage.Text)
                '   System.Windows.Forms.Application.DoEvents()
                
                'UPGRADE_WARNING: Couldn't resolve default property of object wskServer().UBound. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                For i = 1 To wskServer().UBound
                    If Not i = Index Then
                        Call wskServer(i).SendData("Joined " & Info)
                        System.Windows.Forms.Application.DoEvents()
                    End If
                    System.Windows.Forms.Application.DoEvents()
                Next i
                
            Case "Leave"
                'UPGRADE_WARNING: Couldn't resolve default property of object wskServer().UBound. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                For i = 1 To wskServer().UBound
                    If Not i = Index Then
                        Call wskServer(i).SendData("Left " & Info)
                        System.Windows.Forms.Application.DoEvents()
                    End If
                    System.Windows.Forms.Application.DoEvents()
                Next i
                
                For i = 0 To lstUsers.Items.Count
                    If Me.lstUsers.Items(i) = Info Then
                        Call lstUsers.Items.RemoveAt(i)
                        System.Windows.Forms.Application.DoEvents()
                    End If
                    System.Windows.Forms.Application.DoEvents()
                Next i
                System.Windows.Forms.Application.DoEvents()
                
                If CheckUnKick(Info) = True Then
                    For i = 0 To lstUnKickable.Items.Count
                        If Me.lstUsers.Items(i) = Info Then
                            Call lstUnKickable.Items.RemoveAt(i)
                            System.Windows.Forms.Application.DoEvents()
                        End If
                    Next i
                End If
                
                strUsers(Index) = ""
                
                Num = Num - 1
                If Num < CDbl("0") Then Num = CInt("0")
                lblCount.Text = CStr(Num)
                
                wskServer(Index).Close()
                
            
        End Select
    End Function

Function obrada(ByRef strData As String) As Object
        Dim i As Object
        On Error Resume Next
        Dim Umain, Msg, variable, UWin As Object
        Dim Uball As String
        Dim User, Command_Renamed, Info, Text_Renamed As String
 
        Command_Renamed = VB.Left(strData, InStr(strData, " ") - 1)
        Info = VB.Right(strData, Len(strData) - InStr(strData, " "))
 
        Dim Answer As MsgBoxResult
        Dim strUser As String
        Dim msg3 As String
        Dim msg4 As String
        Dim msg5 As String
        Select Case Command_Renamed
 
            Case "Message"
                User = VB.Left(Info, InStr(Info, ":") - 1)
                Text_Renamed = VB.Right(Info, Len(Info) - InStr(Info, ":"))
                System.Windows.Forms.Application.DoEvents()
 
                Call AddChat(User, Text_Renamed)
                System.Windows.Forms.Application.DoEvents()
         
 
 
           
              
            Case "UserList"
                lstUsers.Items.Clear()
                Call lstUsers.Items.Add(Info)
                System.Windows.Forms.Application.DoEvents()
 
            Case "Joined"
 
                'čitanje opcija
 
                Call lstUsers.Items.Add(Info)
 
                ' Opcije
           
 
                txtHistory.Document.DomDocument.write("<table cellspacing='0' cellpadding='0'><tr><td class='system'>[" & TimeOfDay & "] Server: " & Info & " has joined to Chat!!!</td></tr></table>")
                Me.txtHistory.Document.DomDocument.body.All(Me.txtHistory.Document.DomDocument.body.All.length - 1).scrollIntoView()
                System.Windows.Forms.Application.DoEvents()
             
 
            Case "Left"
                For i = 0 To lstUsers.Items.Count
                    If Me.lstUsers.Items(i) = Info Then
                        Call lstUsers.Items.RemoveAt(i)
                        System.Windows.Forms.Application.DoEvents()
                    End If
                    System.Windows.Forms.Application.DoEvents()
                Next i
 
                txtHistory.Document.DomDocument.write("<table cellspacing='0' cellpadding='0'><tr><td class='system'>[" & TimeOfDay & "] Server: " & Info & " has logoff from the Chat!!!</td></tr></table>")
                Me.txtHistory.Document.DomDocument.body.All(Me.txtHistory.Document.DomDocument.body.All.length - 1).scrollIntoView()
               
          
        End Select
    End Function

[Atheist]

You should really rewrite that code from scratch. Why upgrade to .Net if you're just going to use VB6 code anyway?

[supra56]

R u working on irc similar to mirc?

If u into vb2008... u will have to removed doEvents.

If not. I be happy to shared with u, if u want to started new vb2008. But u will not looking back from vb6.

Btw, I almost finished irc, but working on ident, dcc chat and dcc send.

[blackone]

I give up form chat in 2008 but I think to start from beginning all new code!
This is my chat in vb6 http://www.download.com/FlyChat/3000...58.html?hhTest
I'm working on chat with server and client aplication simular irc but difrent
If you wonna make new chat with me contac me on pp or email

[supra56]

I saw ur screenshot. But do u get colours code working?