Form_Loadに以下のプログラムコードを追加します。
サブフォーム_ロード()
Form1.AutoRedraw=True
'Form オブジェクトの自動再描画を有効にする
Form1.DrawStyle=6
'直線のスタイルは内側実線(6-vbInsideSolid)
Form1.DrawMode=13
'copyPen - ForeColor プロパティで指定された色。 (13-vbコピーペン)
Form1.DrawWidth=2
'出力線幅は2ピクセル(Pixel)です
'プロットまたは印刷用のカスタム座標スケールを作成します
'グラフィックピクセルはモニターまたはプリンターの解像度の最小単位です
Form1.ScaleMode=3
'オブジェクト座標の測定単位をピクセル(3-VbPixels)に設定します
Form1.ScaleHeight=(256*2)
'垂直方向の測定単位の値を 512 に設定します
フォーリ=0To255
Form1.Line(0,Y)-(Form1.Width,Y 2),RGB(0,0,i),BF
Y=Y2
ネクスティ
'RGB(赤、緑、青)
'B: 指定された正方形の反対側の角の座標を使用して正方形を描画します
'F: この四角形が四角形の描画に使用される色で塗りつぶされることを指定します (F は B が存在する場合にのみ使用できます)
EndSub->