SMPL: Color Picker

Public Class Form1
    Private _screenGraphics As Aurigma.GraphicsMill.Drawing.GdiGraphics
    Private _capturing As Boolean

    Private Declare Function SetCapture Lib "user32" (ByVal hwnd As IntPtr) As Long
    Private Declare Function ReleaseCapture Lib "user32" () As Long

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        _screenGraphics = Aurigma.GraphicsMill.Drawing.GdiGraphics.FromHwnd(IntPtr.Zero)
    End Sub


    Private Sub _pickButton_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles _pickButton.MouseDown
        SetCapture(_pickButton.Handle)
        Me.Cursor = System.Windows.Forms.Cursors.Help
        _capturing = True
    End Sub


    Private Sub _pickButton_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles _pickButton.MouseUp
        ReleaseCapture()
        Me.Cursor = System.Windows.Forms.Cursors.Default
        _capturing = False
    End Sub


    Private Sub _pickButton_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles _pickButton.MouseMove
        If _capturing Then
            Dim screenPoint As System.Drawing.Point = _pickButton.PointToScreen(e.Location)
            _coordsTextBox.Text = String.Format("X: {0} Y: {1}", screenPoint.X, screenPoint.Y)

            Dim color As System.Drawing.Color = _screenGraphics.GetPixel(screenPoint.X, screenPoint.Y)
            _colorPanel.BackColor = color
            _colorTextBox.Text = color.ToString()
        End If
    End Sub
End Class