VB 2008 Pixel search Problem

    Sub test()
        Dim farbe As Integer = &H3B5100
        'Dim farbe2 As Integer = &HA72800
        'Dim farbe3 As Integer = &H6D3700
        'Dim farbe4 As Integer = &H831000
        'Dim farbe5 As Integer = &H8F2E00
        'Dim farbe6 As Integer = &HB33200
        'Dim farbe7 As Integer = &HAD3306

        Dim b As New Bitmap(My.Computer.Screen.WorkingArea.Width, My.Computer.Screen.WorkingArea.Height)
        Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(b)
        g.CopyFromScreen(0, 0, 0, 0, New Size(b.Width, b.Height))

        For i = 0 To (b.Width - 1)
            For j = 0 To (b.Height - 1)
                Dim col As Integer = (b.GetPixel(i, j).ToArgb) And &HFFFFFF
                If col = farbe Then
                    SetCursorPos(i, j)
                    System.Threading.Thread.Sleep(2000)
                    'Mausklick(Windows.Forms.MouseButtons.Left)
                    'System.Threading.Thread.Sleep(2000)
                    'ElseIf col = farbe2 Then
                    'SetCursorPos(i, j)
                    'System.Threading.Thread.Sleep(2000)
                    'ElseIf col = farbe3 Then
                    'SetCursorPos(i, j)
                    'System.Threading.Thread.Sleep(2000)
                    'ElseIf col = farbe4 Then
                    'SetCursorPos(i, j)
                    'System.Threading.Thread.Sleep(2000)
                    'ElseIf col = farbe5 Then
                    'SetCursorPos(i, j)
                    'System.Threading.Thread.Sleep(2000)
                    'ElseIf col = farbe6 Then
                    'SetCursorPos(i, j)
                    'System.Threading.Thread.Sleep(2000)
                    'ElseIf col = farbe7 Then
                    'SetCursorPos(i, j)
                    'System.Threading.Thread.Sleep(2000)
                End If
            Next
        Next
    End Sub