３×３ピクセルの塗りつぶし

０

(3,1)を中心としてその周辺を塗りつぶすとする．

その場合，以下のような

For..Next文を用いる．

For m = -1 to 1

For n = -1 to 1

Picture1.Pset(3+m,1+n), RGB(255,255,255)

マウスポインタが得てくる座標は（x,y)で

与えられるとすれば，

　　Picture1.Point(x+m,y+n), RGB(255,255,255)とすればよい．