Option Explicit
Dim CursorPos As POINTAPI
Dim a As String
Dim b As String
Dim ldC As Long
Dim lol As Long
Dim sTmp As String
Dim zaehler As Integer
 
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
 
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, _
    ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) _
        As Long
 
Private Type POINTAPI 'Variablentyp deklarieren
   x As Long
   y As Long
End Type
 
 
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Declare Sub mouse_event Lib "user32" ( _
  ByVal dwFlags As Long, _
  ByVal dx As Long, _
  ByVal dy As Long, _
  ByVal cButtons As Long, _
  ByVal dwExtraInfo As Long)
 
Private Const MOUSEEVENTF_ABSOLUTE = &H8000
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
Private Const MOUSEEVENTF_MIDDLEUP = &H40
Private Const MOUSEEVENTF_MOVE = &H1
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10
 
 
 
Private Sub Form_Load()
ldC = GetWindowDC(0)
End Sub 
 
Private Sub Timer1_Timer()
 
xPos.Text = CursorPos.x + 1
yPos.Text = CursorPos.y + 1
Call GetCursorPos(CursorPos)
 
lol = GetPixel(ldC, CursorPos.x, CursorPos.y)
DoEvents
 
 
If Combo1.Text = "Hex" Then
    sTmp = Right$("000000" & Hex(lol), 6)
    Form1.Caption = "R:" & Right$(sTmp, 2) & " G:" & Mid$(sTmp, 3, 2) & " B:" & _
      Left$(sTmp, 2)
    ElseIf Combo1.Text = "Dec" Then
 
    sTmp = Right$("000000" & Hex(lol), 6)
    Form1.Caption = "R:" & rechneUm(Right(sTmp, 2)) & " G:" & rechneUm(Mid( _
      sTmp, 3, 2)) & " B:" & rechneUm(Left(sTmp, 2))
    End If
 
End Sub