Private Sub Form_Load()
  Dim Picture As IPictureDisp
  Dim hDC As Long
  Dim WidthInPixels As Long, HeightInPixels As Long
 
  Set Picture = LoadPicture("D:\Bilder\Test.bmp")
 
  hDC = CreateCompatibleDC(Me.hDC)
  SelectObject hDC, Picture.Handle
 
  WidthInPixels = CLng(ScaleX(Picture.Width, vbHimetric, vbPixels))
  HeightInPixels = CLng(ScaleY(Picture.Height, vbHimetric, vbPixels))
 
  BitBlt Picture1.hDC, 0, 0, WidthInPixels, HeightInPixels, hDC, 0, 0, vbSrcCopy
  Picture1.Refresh
 
  DeleteDC hDC
End Sub

Set Picture = ImageList1.ListImages("icon1").ExtractIcon

- "Computers are like air conditioners. They stop working properly when you open Windows"