ctlUniListBoxExXP.ListTag Property

Gets or sets the Tag associated with a certain list item

Syntax

Public Property Get ListTag (ByVal Index As Long) As Variant
Public Property Let ListTag (ByVal Index As Long, _
ByRef NewTag As Variant)

Parameters

Parameter	Description
ByVal Index As Long	The item to use
ByRef NewTag As Variant	The tag to assign

Remarks

Private Sub Form_Load()
    With ctlUniListBoxExXP1
        .AddItem "1st element", , MDIForm1.puGetPic(egii_help)
        .AddItem "&2nd element", , MDIForm1.puGetPic(egii_x)
        .AddItem oIni.ReadString("test", "arabic", "arabic"), , MDIForm1.puGetPic(egii_help)
        .AddItem oIni.ReadString("test", "arabic1", "arabic1"), , MDIForm1.puGetPic(egii_big)
        .AddItem oIni.ReadString("test", "arabic2", "arabic2")
        .ListIndex = 2
    End With
End Sub

...

    'Check if the tag is an object
    If IsObject(ctlUniListBoxExXP1.ListTag(lItemIndex)) Then
        Set oItemPic = ctlUniListBoxExXP1.ListTag(lItemIndex)
    End If