Docy

Private Sub AddUserNickList(sNicks As String, sIcons As String, sLevel As Integer, sStats As String)
    On Error Resume Next
    If sNicks = sMyNick Then Exit Sub
    Dim stNickStat As String
    stNickStat = sNicks & " " & sStats
    If Len(stNickStat) > 22 Then
        stNickStat = Left$(stNickStat, 19) & "..."
    End If
    Set sList = lstUsers.ListItems.Add(, sNicks, sLevel & "_" & sNicks, , sIcons)
    sList.ListSubItems.Add , sNicks, stNickStat, sIcons, sNicks
End Sub

Private Sub DelUserNickList(sNicks As String)
    Dim cTemp As String
    For i = 1 To lstUsers.ListItems.Count
        'MsgBox lstUsers.ListItems(i).Key
        If lstUsers.ListItems(i).Key = sNicks Then
            lstUsers.ListItems.Remove i
            Exit For
        End If
    Next i
End Sub


Private Sub ChangeUserIcon(kNick As String, kIcon As String)
    On Error Resume Next
    For i = 1 To lstUsers.ListItems.Count
        If lstUsers.ListItems(i).Key = kNick Then
            Set sList = lstUsers.ListItems(i)
            sList.ListSubItems(1).ReportIcon = kIcon
            lstUsers.ListItems(i).SmallIcon = kIcon
            Exit For
        End If
    Next i
End Sub

Private Sub ReadNames(Users As String)
    On Error Resume Next
    Dim asUsers()    As String
    Dim strName      As String
    Dim rstName      As String
    Dim strMode      As String
    Dim i            As Integer
    Dim j            As Integer
    Dim R            As String
    Dim l            As String
    Dim x            As String
    Dim Y            As String
    
    Dim nk0          As Integer
    'MsgBox Users
    asUsers = Split(Users, " ")
    For i = 0 To UBound(asUsers)
'    MsgBox asUsers(i)
        Select Case (Left$(asUsers(i), 1))
            Case "@"
                If UCase$(Left$(asUsers(i), 7)) = UCase$(".ADMIN_") Then
                    j = 0
                    R = "admin"
                    l = "(Host)"
                ElseIf UCase$(Left$(asUsers(i), 7)) = UCase$(".SYSMA_") Then
                    j = 1
                    R = "sysma"
                    l = "(Host)"
                ElseIf UCase$(Left$(asUsers(i), 7)) = UCase$(".SYSOP_") Then
                    j = 2
                    R = "sysop"
                    l = "(Host)"
                ElseIf UCase$(Left$(asUsers(i), 7)) = UCase$(".GUIDE_") Then
                    j = 3
                    R = "guide"
                    l = "(Host)"
                ElseIf UCase$(Right$(asUsers(i), 4)) = UCase$("_BOT") Then
                    j = 4
                    R = "bot"
                    l = "(Host)"
                Else
                    j = 5
                    R = "owner"
                    l = "(Host)"
                End If
            Case "%"
                j = 6
                R = "host"
                l = "(Host)"
            Case "+"
                j = 7
                R = "voice"
                l = ""
            Case Else
                j = 8
                R = "normal"
                l = ""
        End Select
        strName = Replace$(asUsers(i), ".", "")
        strName = Replace$(strName, "@", "")
        strName = Replace$(strName, "+", "")
        Call AddUserNickList(strName, R, j, l)
    Next
    lstUsers.Refresh
End Sub

'to add to parse
'        Case "353"
'            lstUsers.ListItems.Clear
'            sUsers = Split(sData, sChannel & " :")(1)
'            ReadNames (sUsers)
            Exit Sub