What am I doing wrong?

[werido]

Loading

      ProcessHandle = FindWindow(vbNullString, "Google - Mozilla Firefox")
        ProcessDC = GetDC(0)

Closing

 Call ReleaseDC(0, ProcessDC)

Timer

   On Error Resume Next
        Dim X As Long, Y As Long, PixelColor As Long
        Dim CursorPosition As Point
        Call GetCursorPos(CursorPosition)
        For X = CursorPosition.X - 20 To CursorPosition.X + 20
            For Y = CursorPosition.Y - 20 To CursorPosition.Y + 20
                PixelColor = GetPixel(ProcessDC, X, Y)
                If (PixelColor = RGB(255, 0, 0)) Then
     MessageBox.Show("") 'to see if it finds the color
 Exit Sub
                           End If
            Next Y
        Next X

Theres no MessageBox that pops up, what's wrong?