Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
' Exemple (dans une fonction)
Dim hdc As Long
hdc = GetWindowDC(Me.hwnd)
' Dessin avec les fonctions du gdi :
Call Ellipse(hdc, 50, 4, 100, 54)
Call ReleaseDC(Me.hwnd, hdc)