色について (ID:119706)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 pintメソッドを自分でやってみました。 が、なかなか上手くはいきません。 自分なりに、 for X= 0 to 100 for Y= 0 to 80 for X2= 20 to 32 for Y2= 20 to 32 If Picture1.Point(X, Y) = vbRed and Picture2.Point(X2, Y2) = vbRed then If X + Picture1.Left = X2 + Picture2.Left then If Y + Picture1.Top = Y2 + Picture2.Top then MsgBox "あたり" End If End If End if をsubに入れてみて、 10ミリ秒のタイマーで実行してみたのですが 以前より数十倍重くなり、どうしようもない状態に・・・ どうしたらいいのでしょうか？ なにか他の方法があるのでしょうか？ それともソースがおかしいのでしょうか？ 教えてください。お願いします