Type BITMAP    bmType As Long    bmWidth As Long    bmHeight As Long    bmWidthBytes As Long    bmPlanes As Integer    bmBitsPixel As Integer    bmBits As LongEnd TypePrivate Declare Function GetObjectAPI Lib "gdi32" Alias "GetObjectA" (ByVal _    hObject As Long, ByVal nCount As Long, lpObject As Any) As Long' Returns info on a bitmap loaded into a picture'' Pass the Picture property in the first argument' Find the results in the remaining argumentsSub GetBitmapInfo(ByVal handle As Long, width As Integer, height As Integer, _    Optional colorPlanes As Integer, Optional bitsperpixel As Integer)    Dim bmp As BITMAP    ' call the API    GetObjectAPI handle, Len(bmp), bmp    ' return values throgh argumens    width = bmp.bmWidth    height = bmp.bmHeight    colorPlanes = bmp.bmPlanes    bitsperpixel = bmp.bmBitsPixelEnd Sub