oTreeView.ImageList = oImageList

        Dim oTreeView As New mscomctl.TreeView
        Dim oImageList As New mscomctl.ImageList
        Dim oNetImage As System.Drawing.Image
        Dim oComPicture As Object
        oNetImage = System.Drawing.Image.FromFile("D:\graphics\icons\t17.ico")
        oComPicture =   _
          Microsoft.VisualBasic.Compatibility.VB6.Support.ImageToIPicture( _
          oNetImage)
        oImageList.ListImages.Add(, "Error", oComPicture)
        oTreeView.Style = mscomctl.TreeStyleConstants.tvwPlusPictureText
        oTreeView.LabelEdit = mscomctl.LabelEditConstants.tvwManual
        oTreeView.LineStyle = mscomctl.TreeLineStyleConstants.tvwTreeLines
        oTreeView.ImageList = oImageList

        Dim oTreeView As mscomctl.TreeView = Me.AxTreeView1.GetOcx()
        Dim oImageList As mscomctl.ImageList = Me.AxImageList1.GetOcx()

Dim oImageList As New Axmscomctl.AxImageList

Dim oImageList As Axmscomctl.AxImageList = Me.AxImageList1

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov