Private _imglist As ImageList
 
    Public Property ImgList As ImageList
        Set(value As ImageList)
            _imglist = value
        End Set
        Get
            Return _imglist
        End Get
    End Property

   Dim MySubForm As New Subform
   MySubForm.ImgList = Me.ImageList1