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