Private Sub Form1_MouseDown(sender As Object, e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        Using bm As New Bitmap(1, 1),
           g As Graphics = Graphics.FromImage(bm)
            g.CopyFromScreen(MousePosition, New Point(0, 0), New Size(1, 1))
            Debug.WriteLine(bm.GetPixel(0, 0).ToString())
        End Using
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist