Cómo generar el color de la imagen en el control en VB

Función de declaración privada GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) Declaración As Long

Dim Color as Long 'El color del punto con las coordenadas correspondientes

Color = GetPixel(Picture1.hDC, x, y) 'x e y son las coordenadas correspondientes