Dim oTreeView As mscomctl.TreeView
            Dim oImageList As New mscomctl.ImageList
            Dim oNetImage As System.Drawing.Image
            Dim oComPicture As Object
            oTreeView = CType(oSwTaskViewTab.AddControl( _
                        "MSComctlLib.TreeCtrl", ""), mscomctl.TreeView)
            'Bild 1 - Error
            oNetImage = System.Drawing.Image.FromFile(System.IO.Path.Combine( _
                    My.Application.Info.DirectoryPath, _
                    "Images\Error_16x16.ico"))
            oComPicture = _
                Microsoft.VisualBasic.Compatibility.VB6.Support.ImageToIPicture( _
                oNetImage)
            oImageList.ListImages.Add(, "Error", oComPicture)
            'Bild 2 - Hilfe
            oNetImage = System.Drawing.Image.FromFile(System.IO.Path.Combine( _
                    My.Application.Info.DirectoryPath, _
                    "Images\Hilfe_16x16.ico"))
            oComPicture = _
                Microsoft.VisualBasic.Compatibility.VB6.Support.ImageToIPicture( _
                oNetImage)
            oImageList.ListImages.Add(, "Hilfe", oComPicture)
            'Bild 3 - Info
            oNetImage = System.Drawing.Image.FromFile(System.IO.Path.Combine( _
                    My.Application.Info.DirectoryPath, "Images\Info_16x16.ico"))
            oComPicture = _
                Microsoft.VisualBasic.Compatibility.VB6.Support.ImageToIPicture( _
                oNetImage)
            oImageList.ListImages.Add(, "Info", oComPicture)
            'Bild 4 - Warnung
            oNetImage = System.Drawing.Image.FromFile(System.IO.Path.Combine( _
                    My.Application.Info.DirectoryPath, _
                    "Images\Warnung_16x16.ico"))
            oComPicture = _
                Microsoft.VisualBasic.Compatibility.VB6.Support.ImageToIPicture( _
                oNetImage)
            oImageList.ListImages.Add(, "Warnung", oComPicture)
            'TreeView Einstellungen
            oTreeView.Style = mscomctl.TreeStyleConstants.tvwPlusPictureText
            oTreeView.LabelEdit = mscomctl.LabelEditConstants.tvwManual
            oTreeView.LineStyle = mscomctl.TreeLineStyleConstants.tvwTreeLines
            oTreeView.ImageList = oImageList

            oTreeView = CType(oSwTaskViewTab.AddControl( _
                        "MSComctlLib.TreeCtrl", ""), mscomctl.TreeView)

Mfg Daniel
Brauchen Sie Hilfe, sind Sie in Not? Wir retten Sie mit unserem Code!
SolidWorks API-Programmierung