Private Sub Solution_Col()
 
  Dim x As Long
  Dim y As Long
  Dim col As Long
  Dim aCol As New Collection
 
  For x = 1 To pic1.Width
    For y = 1 To pic1.Height
 
      col = GetPixel(pic1.hdc, x, y)
 
      On Error Resume Next
      aCol.Add col, CStr(col)
      Err.Clear
 
    Next y
    'Progressbar
    'pgBar.Value = CSng(pic1.Height * x) / CSng(pic1.Width * pic1.Height) * 100
    DoEvents
  Next x
 
End Sub

Gruß
Dirk

--
?Get it right the first time