在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->