用PictureBox.Line方法就可以画直线了。直线的起点终点由PictureBox的MouseDown事件获取，就可以绘制任意多边形了。
成都创新互联公司主要从事成都做网站、成都网站设计、成都外贸网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务栾城,10余年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18982081108
Line 方法
在对象上画直线和矩形。
语法
object.Line [Step] (x1,1) [Step] (x2,y2), [color], [B][F]
Line 方法的语法有以下对象限定符和部分：
部分 描述
object 可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点 的 窗体作为object。
Step 可选的。关键字，指定起点坐标，它们相对于由CurrentX 和 CurrentY 属性提供的当前图形位置。
(x1, y1) 可选的。Single （单精度浮点数），直线或矩形的起点坐标。ScaleMode 属性决定了使用的度量单位。如果省略，线起始于由 CurrentX 和 CurrentY 指示的位置。
Step 可选的。关键字，指定相对于线的起点的终点坐标。
(x2, y2) 必需的。Single （单精度浮点数），直线或矩形的终点坐标。
color 可选的。Long （长整型数），画线时用的 RGB 颜色。如果它被省略，则使用ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。
B 可选的。如果包括，则利用对角坐标画出矩形。
F 可选的。如果使用了B 选项，则 F 选项规定矩形以矩形边框的颜色填充。不能不用 B 而用 F。如果不用 F 光用 B，则矩形用当前的 FillColor 和 FillStyle 填充。FillStyle 的缺省值为 transparent。
说明
画联结的线时，前一条线的终点就是后一条线的起点。
线的宽度取决于DrawWidth 属性值。在背景上画线和矩形的方法取决于 DrawMode 和 DrawStyle 属性值。
执行Line 方法时， CurrentX 和 CurrentY 属性被参数设置为终点。
这个方法不能用于With...End With 语句块。
画点：
在PictureBox的Paint事件里面：
dim myGraphics=e.Graphics
Dim myPointArray As Point() = {New Point(0, 0), New Point(50, 30), New Point(30, 60)}
myGraphics.DrawPolygon(myPen, myPointArray)
画圆：
Dim g As Graphics
g = PictureBox1.CreateGraphics
g.FillEllipse(Brushes.Red, x, y, 10, 10)
记得VB6当中有Shape控件，但是VB.net里这个控件不存在了。
提个思路：使用Picture控件或Label控件，通过代码在控件里绘图想要的图形，可以试试。
dim bmp as new bitmap(width,height)dim g as graphics=graphics.fromimage(bmp)dim P() as pointf {new pointf(10,10),new pointf(30,30),new pointf(30,50),new pointf(10,50),new pointf(10,30)}g.drawlines(pen.blue,p)backgroundimage=bmp 还有一种方法是用路径(graphicspath),原理差不多，可以参考下MSDN
