Shapeコントロール
Shape1.FillColor = Picture1.Point(x,y)
初期の塗りつぶし設定(FillStyleプロパティ)は透明なので,Shape1.FillStyle = 0 あるいはShape1.FillStyle = vbFSSolid を事前に設定しておく必要がある.
ここで定数..vbFSSolidなどの定数はあらかじめプログラマがわかりやすいように定めた定数である.すなわち,vbFSSolidの値は0である.
自分でも定数を定めることが可能例えばCONST PAI=3.1415等と定めておくと,PAI*R^2で面積が求められる.(Subルーチンの外で定義すること)