Declare Function GetDC Lib "user32" _ (ByVal hWnd As Long) As Long
GetDC возвращает контекст устройства (DC) окна или другого объекта, имеющий описатель. Захватив контекст устройства, вы обязаны вернуть его системе через функцию ReleaseDC. Если вы попытаетесь получить контекст чего-то, не являющимся устройством, функция возвратит 0. Не пользуйтесь функцией DeleteDC для удаления контекста устройства при завершении работы
' Находим контекст устройства Рабочего стола Dim deskhwnd As Long ' описатель Рабочего стола Dim deskhdc As Long ' контекст устройства Dim retval As Long ' возвращаемое значение ' Получаем описатель рабочего стола ' Получаем контекст устройства deskhwnd = GetDesktopWindow() deskhdc = GetDC(deskhwnd) ' здесь вы размещаете свой код ' Освобождаем ресурсы, взятые ' у контекста устройства retval = ReleaseDC(deskhwnd, deskhdc)