在Form_Load中加入以下程序碼
SubForm_Load()
Form1.AutoRedraw=True
'使Form物件的自動重繪有效
Form1.DrawStyle=6
'直線的樣式為內實線(6-vbInsideSolid)
Form1.DrawMode=13
'copyPen-由ForeColor屬性指定的顏色。(13-vbCopyPen)
Form1.DrawWidth=2
'輸出的線寬為2像素(Pixel)
'為繪圖或列印建立一自訂的座標比例尺
'圖形像素為顯示器或印表機解析度的最小單位
Form1.ScaleMode=3
'設定物件座標的量測單位為像素(3-VbPixels)
Form1.ScaleHeight=(256*2)
'設定垂直量測單位值為512
Fori=0To255
Form1.Line(0,Y)-(Form1.Width,Y 2),RGB(0,0,i),BF
Y=Y 2
Nexti
'RGB(red,green,blue)
'B:使一方塊用一指定方塊對角的座標畫出
'F:指定此方塊系以用來畫方塊的色彩來加以填滿(有B才可用F)
EndSub->
