<code>Dim lColor As Long
Dim iRed As Integer
Dim iGreen As Integer
Dim iBlue As Integer
 
<font color=green>' Farbe des Pixels 1, 1</font>
lColor = Picture1.Point(1,1)
 
<font color=green>' RGB-Farben</font>
iRed = ColorRed(lColor)
iGreen = ColorGreen(lColor)
iBlue = ColorBlue(lColor)</code>