Private Declare Function GetPixel Lib "gdi32" _
  Alias "GetPixel" ( _
  ByVal hdc As Long, _
  ByVal x As Long, _
  ByVal y As Long) As Long

Dim lngColor As Long
 
lngColor = GetPixel(Picture1.hDC, 1, 1)

Dim lngColor As Long
 
lngColor = Picture1.Point(1, 1)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de