Arie
Feb 8th, 2002, 09:17 AM
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.
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.