      UserControl_Paint
      End If
   End If
End Sub
Public Property Get ItemIndex(ByVal vKey As Variant) As Long
Attribute ItemIndex.VB_Description = "Returns the index for the image with a
 specified key."
Attribute ItemIndex.VB_MemberFlags = "400"
Dim lR As Long
Dim i As Long
   ' Returns the 1-based Index for the selected
   ' Image list item:
   If (IsNumeric(vKey)) Then
      lR = vKey
      If (lR &gt; 0) And (lR &lt;= ImageCount) Then
         ItemIndex = lR
      Else
         ' error
         Er