Code:
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 Dim MyPixel As Long
 MyPixel = GetPixel(Picture1.hdc, X, Y)
End Sub
Is that helps?

Arie.