I've spent days trying to fix this problem, i cant seem to figure out why it wont keep those who are operators to the top of the list when they join the channel.



Private Sub Event_User(strUser As String, StrFlag, strText, Ping)

Dim lFlags As Long
Dim lPing As Long
Dim Icon As Integer
Icon = GetIconCode(strText, StrFlag)

If Icon = GAVEL Then
frmMain.Users.ListItems.Add 1, , strUser, , Icon
frmMain.Users.ListItems(frmMain.Users.ListItems.Count).ListSubItems.Add , , strAccount, GetLagIcon(lPing, lFlags)
frmMain.Users.ListItems(frmMain.Users.ListItems.Count).ListSubItems.Add , , lPing
Else
If strUser = "gosu" Then
frmMain.Users.ListItems.Add , , strUser, , gosu
frmMain.txtChannelName.text = BNet.CurrentChan & " [" & frmMain.Users.ListItems.Count & "]"
frmMain.Users.ListItems(frmMain.Users.ListItems.Count).ListSubItems.Add , , strAccount, GetLagIcon(lPing, lFlags)
frmMain.Users.ListItems(frmMain.Users.ListItems.Count).ListSubItems.Add , , lPing
ElseIf strUser = "g0su" Then
frmMain.Users.ListItems.Add , , strUser, , gosu
frmMain.txtChannelName.text = BNet.CurrentChan & " [" & frmMain.Users.ListItems.Count & "]"
frmMain.Users.ListItems(frmMain.Users.ListItems.Count).ListSubItems.Add , , strAccount, GetLagIcon(lPing, lFlags)
frmMain.Users.ListItems(frmMain.Users.ListItems.Count).ListSubItems.Add , , lPing
Else
frmMain.Users.ListItems.Add , , strUser, , Icon
frmMain.txtChannelName.text = BNet.CurrentChan & " [" & frmMain.Users.ListItems.Count & "]"
frmMain.Users.ForeColor = vbWhite
frmMain.Users.ListItems(frmMain.Users.ListItems.Count).ListSubItems.Add , , strAccount, GetLagIcon(lPing, lFlags)
frmMain.Users.ListItems(frmMain.Users.ListItems.Count).ListSubItems.Add , , lPing
End If
End If


Select Case StrReverse(Mid(strText, 1, 4))
Case "JSTR"

Case "SSHR"

Case "DSHR"

Case "DRTL"

Case "STAR"

Case "SEXP"

Case "W2BN"

Case "D2XP"

Case "D2DV"

Case "WAR3"

Case "CHAT"

End Select
LastUser = strAccount
End Sub

This is my way of doing the User joins/flags update. it works fine for me.

With form1.lstchannel.ListItems.Add(, , user, , GetIconCode(Message, Flags))
.ListSubItems.Add , , , GetLagIcon(Ping, Flags)
End With




If Flags = &H2 Then

form1.lstchannel.ListItems.Remove form1.lstchannel.FindItem(user).Index


With form1.lstchannel.ListItems.Add(1)

.text = user
.SmallIcon = 2 'the ops icon
.ListSubItems.Add , , , GetLagIcon(Ping, Flags)
End With
End If

this operator thing thanks again newbie! :D

lol