Is that helps?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
Arie.
