请教：关于VB的PictureBox中画K线图出现偏差的问题

VB 在PictureBox中画K线图，上下引线不在箱体中心线上，且箱体宽度各异，间距不一，怎么解决？急！！！
代码如下：
Private Sub Command1_Click()
Dim i As Integer
Dim a As Integer

a = 1
Picture1.Scale (0, 0)-(2000, 2000)
Picture1.Scale (0, 2000)-(2000, 0)
For i = 1 To 20
   Form1.Picture1.Line (i * 100, 2000)-(i * 100, 1500), QBColor(a)
   Form1.Picture1.Line (i * 100, 500)-(i * 100, 1000), QBColor(a)
   Form1.Picture1.Line (i * 100 - 30, 1500)-(i * 100 + 30, 1000), QBColor(a), BF
Next i

SavePicture Picture1.Image, "D:\000.bmp"
Picture1.Picture = LoadPicture("")
End Sub
请各位高手帮忙！ --------------------编程问答-------------------- 从代码看没发现问题. --------------------编程问答-------------------- 没有问题，可能是显示出来，你的眼看花了~~~，人的眼睛会有错觉的~~~ --------------------编程问答-------------------- 不是看花，截图为证：

--------------------编程问答--------------------

引用 3 楼 sengains 的回复:

不是看花，截图为证：

证据不给力，显示不出来~~~~ --------------------编程问答-------------------- 是不是PictureBox的精度不够呢？ --------------------编程问答-------------------- 百度不给力，试试这个

--------------------编程问答--------------------

同样的代码画出的图~~~ --------------------编程问答-------------------- 是不是你的程序中线宽的因素没有考虑啊~~~~ --------------------编程问答-------------------- 请问那线宽怎么弄这个Picture1里的DrawWidth默认是1嘛要改吗？怎么改啊？ --------------------编程问答-------------------- chinayuppie哥帮忙解答一下吧

补充：VB ,  基础类