Dim oAXImageList As New Axmscomctl.AxImageList
Dim oNetImage As System.Drawing.Image
Dim oComPicture As Object
 
'Bild 1 - Error - Bitmap
oNetImage = System.Drawing.Image.FromFile(System.IO.Path.Combine( _
        My.Application.Info.DirectoryPath, "Images\Error_16x16.bmp"))
oComPicture = _
        Microsoft.VisualBasic.Compatibility.VB6.Support.ImageToIPicture( _
        oNetImage)
oAXImageList.ListImages.Add(, "Error", oComPicture)

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