Displaying Lag Icons

[phvckmeh]

ok so i got the client icon displaying now, now i need the lag icon to the right of there name

Code Select Expand

Public Const ICON_ping1     As Integer = 19
Public Const ICON_ping2   As Integer = 20
Public Const ICON_ping3    As Integer = 21
Public Const ICON_ping4    As Integer = 22
Public Const ICON_ping5    As Integer = 23
Public Const ICON_ping6    As Integer = 24
Public Const ICON_plug    As Integer = 18 'plug

Public Function GetPingIcon(ping As Integer)
Dim iconcode As Integer
If ping > 0 Then iconcode = 19
If ping > 100 Then iconcode = 20
If ping > 200 Then iconcode = 21
If ping > 300 Then iconcode = 22
If ping > 400 Then iconcode = 23
If ping > 500 Then iconcode = 24
If ping < 0 Then iconcode = 25
If ping = 0 Then iconcode = 18
GetPingIcon = iconcode
End Function

ive got the basics, i just dont know how to accutaly make it display without using the next line (lol!)

[BinaryzL]

Code Select Expand

With frmMain.lvChannel.ListItems.Add(, , strUsername, , Icon)
    .ListSubItems.Add , , , LagIcon
End With

[phvckmeh]

thx worked perfectaly!