Public Function GetDCFromBitmap(ByVal CompatibleDC As Long, ByVal Bitmap As _
  Long, ByRef OldHandle As Long) As Long
  Dim hDC As Long
 
  hDC = CreateCompatibleDC(CompatibleDC)
  OldHandle = SelectObject(hDC, Bitmap)
 
  GetDCFromBitmap = hDC
End Function

SelectObject hDC, OldHandle

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