I can't seem to extract username/product from the freind when I recive the list packet. Ive try a formula and didnt work, and right now im trying to split the data. It works but only for one product.
Dim nothin() As String
Dim x As Integer
nothin = Split(Mid$(data, 6), Chr(0), -1)
For x = 0 To UBound(nothin)
If Not nothin(x) = "" Then
If Not (Mid(nothin(x), 2, 4)) = "PX3W" or (Mid(nothin(x), 2, 4)) = "PXES" Then ' I tried all the products here and didnt work
Form1.LvMonitor.ListItems.Add , , nothin(x)
Else
Form1.LvMonitor.ListItems(Form1.LvMonitor.ListItems.count).SmallIcon = GetIcon(Mid(nothin(x), 2, 4))
End If
End If
Next x
where (Mid(nothin(x), 2, 4)) = "PX3W" ive tried all the products with PX3W. Geticon is a select case of the products.
I thought i needed help but i got it to work never mind.