wUsage As Long) As Long
Private Declare Function CreateDIBitmap Lib "gdi32" (ByVal hDC As Long,
 lpInfoHeader As BITMAPINFOHEADER, ByVal dwUsage As Long, lpInitBits As Any,
 lpInitInfo As Any, ByVal wUsage As Long) As Long
' Byref so we get the pointer back:
Private Declare Function CreateDIBSection Lib "gdi32" _
    (ByVal hDC As Long, _
    pBitmapInfo As Any, _
    ByVal un As Long, _
    lplpVoid As Long, _
    ByVal handle As Long, _
    ByVal dw As Long) As Long

' Device dependent Bitmap structure:
P