GetObjectAPI

[CVMichael]

Dim dBitmap As Long, dBMP As BITMAP, HDC As Long, ret As Long
    
    HDC = GetForegroundWindow
    dBitmap = GetCurrentObject(HDC, OBJ_BITMAP)
    
    If dBitmap <> 0 Then
        ret = GetObjectAPI(dBitmap, Len(dBMP), dBMP)
        Debug.Print ret, dBMP.bmHeight, dBMP.bmWidth
 
' .... the rest of the ode...

The GetObjectAPI ALWAYS returns 0, and dBMP variables are 0 also, how come ?