主题：为什么Line的右端锚定属性不起作用

Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
Dim points(3) As Point
points(0) = New Point(10, 10)
points(1) = New Point(10, 100)
points(2) = New Point(50, 10)
points(3) = New Point(10,10)
g.DrawLines(Pens.Green, points)
p.Repaint()

以上代码如何改呢