Option Strict Off
Option Explicit On
Friend Class Form1
    Inherits System.Windows.Forms.Form
    'Beispiel : Mouseposition setzen.
    Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal lXPosition As Long, ByVal lYPosition As Long) As Long
    Private Declare Function GetCursorPos Lib "user32" (ByVal coll As Long) As Long
    Private Declare Function SetCursorPos Lib "user32" (ByVal X As Integer, ByVal Y As Integer) As Integer


    Private Sub fMousePositionSetzen(ByRef lXPosition As Integer, ByRef lYPosition As Integer)
        SetCursorPos(lXPosition, lYPosition)
    End Sub

    Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
    
***RED section

        Dim Idc As Long
        Dim cursor As Integer
        Dim Icolor As Integer

***End RED section
      
        fMousePositionSetzen(CInt(Text1.Text), CInt(Text2.Text))

***RED section

                Call GetCursorPos(Cursor)
        Icolor = GetPixel(Idc, CInt(Text1.Text), CInt(Text2.Text))
        Label1 = Icolor

***End RED section

    End Sub

    Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click
        Me.Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class