【VBA】画面の色による条件分岐ができない

Question

VBAで、PCの操作を自動化するツールを作成中です。

もし画面上の特定の座標の色が赤だったら、〇〇する
それ以外なら、□□する

という条件分岐をしたいのですが、これをやろうとする人が少ないのか、調べてもわかりませんでした。
実際に作っているものとは違いますが、例えば以下のURLのPC上の画面で、「白で囲った部分（座標）が赤なら、〇〇する」といった感じです。

［参考］
http://www5d.biglobe.ne.jp/~tomoya03/shtml/vbapi/GetColor.htm

こちらにそれらしいことは書いてありましたが、私の力不足で理解ができませんでした。

if test ［画面上の特定の座標の色（16進数orRGB）］=［赤の16進数orRGB］ then
    〇〇
else
    □□
endif

という感じにしたいです。

具体的なコードまで教えていただけると幸いです。
よろしくお願いします。

Answer 1

他レスがありましたね・・。
無視してください。

Sub test()

If Range("A1").Interior.Color = vbRed Then

　MsgBox "赤！"

Else

　MsgBox "赤じゃない！"

End If

End Sub

特定のシートのセルが変更された場合に色わけするなど
こちらのサイトの意味でしょうか？？

Answer 2

http://www5d.biglobe.ne.jp/~tomoya03/shtml/vbapi/GetColor.htm　より

「白で囲った部分（座標）」はわかりませんが、指定座標なら

Option Explicit

#If VBA7 And Win64 Then
  Private Declare PtrSafe Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
  Private Declare PtrSafe Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
#Else
  Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
  Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
#End If

Sub tes()
Dim ScreenhDC As Long, pc As Long
Dim x, y, r, g, b
   '座標
   x = 500
   y = 500
ScreenhDC = GetDC(0&)
If GetPixel(ScreenhDC, x, y) = vbRed Then
    MsgBox "〇〇"
Else
    MsgBox "□□"
End If
End Sub