Option Explicit
 
Private Declare Function DeleteDC Lib "gdi32" (ByVal hDC As Long) As Long
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hDC As Long) As _
  Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hDC As Long, ByVal _
hObject As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As _
Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal _
hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As _
Long
 
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("test").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, hDC2, 0, 0, _
    vbSrcCopy
 
  Picture1.Refresh
  Picture2.Refresh
 
  DeleteDC hDC
End Sub
 
Public Function GetDCFromBitmap(ByVal CompatibleDC As Long, ByVal Bitmap As _
  Long) As Long
  Dim hDC As Long
 
  hDC = CreateCompatibleDC(CompatibleDC)
  SelectObject hDC, Bitmap
 
  GetDCFromBitmap = hDC
End Function

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