Private Sub Form_Load()
  Dim Picture As IPictureDisp
  Dim hDC As Long
  Dim OldHandle As Long
  Dim WidthInPixels As Long, HeightInPixels As Long
  ' Dim hDC2 As Long
 
  Set Picture = ImageList1.ListImages(1).Picture
 
  hDC = GetDCFromBitmap(Me.hDC, Picture.Handle)
  ' hDC2 = GetDCFromBitmap(Me.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
  BitBlt Picture2.hDC, 0, 0, WidthInPixels, HeightInPixels, hDC, 0, 0, _
    vbSrcCopy
 
  Picture1.Refresh
  Picture2.Refresh
 
  DeleteDC hDC
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de