GetDC sur un UserForm

Bonjour à tous

Je cherche à obtenir la couleur sur une image à des coordonnées précises via GetPixel, pour cela je l'ai mise dans un userform cependant je n'arrive pas à limiter les coordonnées à cet UserForm. Voici mon programme actuel :

'GetPixel: renvoie la couleur du pixel en fonction des coordonnées spécifiées (X et Y)
Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, _
                    ByVal Y As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub UserForm_Initialize()
Dim MehDC As Long
MehDC = GetDC(FindWindow(vbNullString, UserForm1.Caption))
End Sub

Public Function couleur(Panneau) As Double

'La fonction renvoie la couleur à l'emplacement spécifié
couleur = GetPixel(MehDC, 250, 250)

End Function

Il est tiré de morceau de code trouvé sur des forums il n'est cependant pas fonctionnel actuellement, pourriez-vous m'indiquer comment faire ?

Merci d'avance pour votre aide !