Private myTimer As Timer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
        System.EventArgs) Handles MyBase.Load
   'Timer konfigurieren und starten
  myTimer = New Timer
  myTimer.Interval = 100
  AddHandler myTimer.Tick, AddressOf myTimer_Tick
  myTimer.Enabled = True
End Sub

Private Sub myTimer_Tick(ByVal sender As System.Object, ByVal e _
        As System.EventArgs)
  Dim bmp As Bitmap = New Bitmap(1, 1)
  Dim g As Graphics = Graphics.FromImage(bmp)
   ' Die Graphics.CopyFromScreen-Methode
  g.CopyFromScreen(Windows.Forms.Cursor.Position.X, _
    Windows.Forms.Cursor.Position.Y, 0, 0, bmp.Size)
   ' Die Bitmap.GetPixel-Methode

  Dim col As Color = bmp.GetPixel(0, 0)
  PictureBox1.BackColor = col
   'Color konvertieren
  Label1.Text = CStr(col.R & ", " & col.G & ", " & col.B)
  Label2.Text = ColorTranslator.ToHtml(col)
  Label3.Text = CStr(col.ToArgb)
End Sub

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As _
        System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
  myTimer.Enabled = True
   ' Pipetten-Cursor
  Me.Cursor = New Cursor(Me.GetType(), "Pipette.cur")
End Sub

Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As _
        System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
  Me.Cursor = Cursors.Default
  myTimer.Enabled = False

   ' Radios auswerten
  If RadioButton1.Checked Then
    My.Computer.Clipboard.SetText(Label1.Text)
  ElseIf RadioButton2.Checked Then
    My.Computer.Clipboard.SetText(Label2.Text)
  ElseIf RadioButton3.Checked Then
    My.Computer.Clipboard.SetText(Label3.Text)
  Else
    ' Nicht kopieren
  End If
End Sub