> 下記ではどうでしょうか?> > Open "aaa.txt" For Append As #ff> Dim c As Long> c = Picture1.Point(100, 100)> Print #ff, cこれでもやはり-1 -1 -1 という感じになります。