Imports System.Threading
Imports System.Windows.Forms

Public Class Sample01
    Sub PixelColorRead()
        Dim objBitmap As Bitmap
        Dim objColor As Color
        Dim strInput As String
        Dim strPrompt As String
        Dim strDelimiter As String
        Dim intX As Integer
        Dim intY As Integer


        MsgBox("Start")
        Thread.Sleep(5 * 1000)
        objBitmap = Clipboard.GetImage()
        If Not objBitmap Is Nothing Then
            strPrompt = "X Y"
            strDelimiter = " "
            strInput = InputBox(strPrompt)
            If Len(strInput) > 0 Then
                intX = Integer.Parse(strInput.Split(strDelimiter.ToCharArray())(0))
                intY = Integer.Parse(strInput.Split(strDelimiter.ToCharArray())(1))
                objColor = objBitmap.GetPixel(intX, intY)
                MsgBox(objColor.ToString())
            End If
        Else
            MsgBox("Thers is no image in clipboard")
        End If
    End Sub
End Class