Opdatering af Mouse position/Farve

Jeg har et program som, clicker med venstre musetast, hvis det er en bestemt farve, der hvor musen er placeret. Problemet er bare at den kun clicker hvis man rykker musen over farven! Hvis fx musen er placeret over et billed, så klikkes der, billedet ændres, der kommer et nyt billed frem med den samme farve og her clickes der ikke med venstre musetast! Musens farve skal opdateres! Jeg har prøvet det med at programmet rykker musen af sig selv, men heller ik der opdateres farven!

Her er koden for formen! Der hører også 2 Moduler med

Option Explicit

Private Declare Function SetCursorPos Lib "user32" _
(ByVal x As Long, ByVal y As Long) 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_LEFTDOWN  As Long = &H2
Private Const MOUSEEVENTF_LEFTUP    As Long = &H4

Private Const MOUSEEVENTF_MIDDLEDOWN As Long = &H20
Private Const MOUSEEVENTF_MIDDLEUP  As Long = &H40

Private Const MOUSEEVENTF_RIGHTDOWN  As Long = &H8
Private Const MOUSEEVENTF_RIGHTUP    As Long = &H10



' Denne funktion bliver kaldt under modMouseHook.bas
Public Sub API_MouseMove(x As Long, y As Long)
Dim lColor As Long
Dim strHex As String

  lColor = GetColor(x, y)
  strHex = LNGtoHEX(lColor)

  picColor.BackColor = lColor
  txtHexB.Text = "#" & strHex

  If UCase$(txtHexA.Text) = txtHexB.Text Then
    ' click med musen.
    mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&
  End If
End Sub

' Denne funktion bliver kaldt under modMouseHook.bas
Public Sub API_MouseClick()
  '--
End Sub


Private Sub cmdAbout_Click()
    frmAbout.Visible = True
End Sub

Private Sub cmdClickTid_Click()
    frmClickTid.Visible = True
    frmMain.Visible = False
End Sub

Private Sub cmdStart_Click()
    Call SetMouseHook
    Timer1.Enabled = True
    If opt1.Value = True Then
    txtHexA.Text = "#243302"
    lblValg.BackColor = RGB(36, 51, 2)
    ElseIf opt2.Value = True Then
    txtHexA.Text = "#330E02"
    lblValg.BackColor = RGB(51, 14, 2)
    End If
End Sub

Private Sub cmdStop_Click()
    Call UnMouseHook
    Timer1.Enabled = False
End Sub

Public Sub Timer1_Timer()
    Call SetMouseHook
    Call UnMouseHook
    Call SetMouseHook
End Sub

Timeren er også et forsøg jeg har prøvet hvor at den henter / Slutter / henter, men det virker heller ikke!

Hvis der er spørgsmål, så spørg endelig!