请教一个VB图片框内画线的问题

我想在一个图片框内均分地画两条线，如下：
Private Sub Command1_Click()
For i = 1 To 2
Picture1.Line (Picture1.Left, (Picture1.Top + Picture1.Height * i / 3))-Step(Picture1.Width / 2, 0)
Next i
End Sub
可这两条线并没有从图片框最左边开始，这是怎么回事呢？

请试一下这个
Private Sub Command1_Click()
For i = 1 To 2
Picture1.Line (0, (Picture1.Top + Picture1.Height * i / 3))-Step(Picture1.Width / 2, 0)
Next i
End Sub
最左为0 最高点也是0，
你写的是picture1在from中的位置

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/s8fs4v2v.html