Declare Function GetDesktopWindow Lib "user32" () As Long
GetDesktopWindow возвращает описатель Рабочего Стола. Рабочий Стол - это основное окно в Windows, которое отображается во весь экран. В случае ошибки функция возвращает 0 вместо описателя.
' Описатель Рабочего стола требует найти ' контекст устройства Dim deskhwnd As Long ' описатель Dim deskhdc As Long ' контекст устройства Dim lRet As Long ' возвращаемое значение deskhwnd = GetDesktopWindow() ' получаем описатель рабочего стола deskhdc = GetDC(deskhwnd) ' получаем контекст устройства ' здесь вы размещаете свой код lRet = ReleaseDC(deskhwnd, deskhdc) ' освобождаем контекст устройства