Public Shared Function GetColor(ByVal pb As System.Windows.Forms.PictureBox, _
      ByVal e As System.Windows.Forms.MouseEventArgs, _
      ByRef Position As Point) As Color
 
        ' Bitmap Objekt
        Dim hBitmap As Bitmap = Nothing
 
        ' Fehlerüberwachung einschalten
        Try
            ' Variable hBitmap initialisieren
            hBitmap = New Bitmap(1, 1)
 
            ' Nutzung der Grafikklasse
            Using g As Graphics = Graphics.FromImage(hBitmap)
                With g
                    ' Transfer der benötigten Daten
 
                        .CopyFromScreen(pb.PointToScreen(e.Location), New Point( _
                          0, 0), hBitmap.Size)
                        ' Wert der Position des Mauszeigers an die Variable 
                        ' Position übergeben
                        Position = e.Location()
                        ' Übergabe an die Variable Color
                        Dim Color As Color = hBitmap.GetPixel(0, 0)
                        ' Rückgabe des ermittelten Farbwertes
                        Return Color
 
 
                End With
            End Using
        Catch ex As Exception
            ' Eventuell auftretenden Fehler abfangen und
            ' Fehlermeldung ausgeben
            MessageBox.Show(ex.Message.ToString(), "Info")
        Finally
            ' Resourcen freigeben
            If hBitmap IsNot Nothing Then hBitmap.Dispose()
        End Try
    End Function

 .CopyFromScreen(pb.PointToScreen(e.Location), New Point(0, 0), hBitmap.Size)

Gruss Caddy