\\\
Private m_Imagelist As ImageList = Nothing
Private m_ImageIndex As Integer = -1

'ImageList
<Category("Appearance"), DefaultValue(GetType(ImageList), Nothing)> _
Public Property ImageList() As ImageList
   Get
       Return m_Imagelist
   End Get
   Set(ByVal Value As ImageList)
       m_Imagelist = Value
   End Set
End Property

'ImageIndex
<Category("Appearance"), DefaultValue(-1), _
TypeConverter(GetType(ImageIndexConverter)), _
Editor("System.Windows.Forms.Design.ImageIndexEditor, System.Design", _
GetType(System.Drawing.Design.UITypeEditor))> _
Public Property ImageIndex() As Integer
   Get
       If m_Imagelist Is Nothing Then
           m_ImageIndex = -1
       End If
       Return m_ImageIndex
   End Get
   Set(ByVal Value As Integer)
       m_ImageIndex = Value
   End Set
End Property
///