Dim x As Long
Dim y As Long
Dim lColor As Long
 
For x = 1 To 50
  For y = 1 To 50
    lColor = Picture1.Point(x, y)
    List1.AddItem ColorBlue(lColor)
    List2.AddItem ColorRed(lColor)
    List3.AddItem ColorGreen(lColor)
  Next y
Next x

'Farbanteil BLAU
Private Function ColorBlue(ByVal Color As Long) As Integer
  ColorBlue = Color  &H10000 And &HFF&
End Function
 
'Farbanteil ROT
Private Function ColorRed(ByVal Color As Long) As Integer
  ColorRed = Color And &HFF&
End Function
 
'Farbanteil GRÜN
Private Function ColorGreen(ByVal Color As Long) As Integer
  ColorGreen = Color  &H100& And &HFF&
End Function