使用函数line或pset函数。
公司主营业务：成都网站制作、成都网站建设、外贸营销网站建设、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联公司是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联公司推出郧西免费做网站回馈大家。
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 语句块。
PSet方法：PSet不只是用在PictureBox上，也可以用在窗体上，PSet最主要功用用就是在某一点位置上画一个点，用法是Object.PSet(X,Y), Color：Private Sub Command1_Click()
Picture1.PSet(500,260),RGB(128,0,255)
'RGB函数是以红色、绿色、蓝色来表示颜色，详情请到函数指令参考
End Sub
●若颜色省略，则以PictureBox预设的颜色。
Private Sub Command1_Click()
Picture1.DrawWidth = 10 '线条宽度
Picture1.PSet (500, 260), RGB(128, 0, 255)
Me.DrawWidth = 10
Me.PSet (500, 260), RGB(128, 0, 255)
End Sub
●前面有学到随机数的运用，因此我们来做个范例看看，范例─满天繁星：
Private Sub Timer1()_Timer
Randomize
X = Int(Rnd * Picture1.ScaleWidth)
Y = Int(Rnd * Picture1.ScaleHeight)
R = Int(Rnd * 256)
G = Int(Rnd * 256)
B = Int(Rnd * 256)
Picture1.PSet (X, Y), RGB(R, G, B)
End Sub
1.绘制直线
单击工具栏中的“直线”按钮可实现直线的绘制.在绘图区任一位置选择直线的起点，移动鼠标给直线一个方向，在命令行输入数字后按回车键确定直线的长度.配合使用下方的“正交”选项，可绘制垂直或水平的直线(连续按“F8”可打开或关闭正交).
2.绘制构造线
单击“构造线”按钮选择构造线命令，直接单击绘图区的任意两点可确定一条构造线.构造线是无限长的一条线，通常用来做参考线使用，如图所示.
绘制构造线
3.绘制多段线
单击“多段线”按钮，可绘制多段线图形.根据命令行的提示，输入相应字母可完成直线、圆弧等的绘制.单击鼠标右键“确定”按钮或使用“回车”“空格”可结束操作.按“Esc”键可放弃选择的命令.多段线绘制出的图形是一个整体.使用多段线还可进行箭头的绘制.单击“多段线”按钮，在视图中任意位置确定箭头的起点，此时命令行出现提示“指定下一个点或[圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]：”，输入“W”后按回车键指定起点宽度，此时输入箭头的起点宽度，这里我们输入“0”按回车键即可.再次输入200，指定端点宽度.此时，在命令行中输入“L”按回车键指定箭头的长度，在命令行出现的“指定直线长度：”后面输入数值400按回车键，即可绘制成想要的箭头，如图所示.
多段线绘制箭头
4.绘制多线
输入多线样式名在建筑装饰绘图中，常使用多线来进行墙体等双线条的绘制.多线绘制前，可对多线进行设置，来实现双线或三线的绘制.设置方法是单击“格式”→“多线样式”命令.弹出“多线样式”对话框，单击“新建”按钮，在“新建样式名”中输入需要创建的多线样式名称，这里我们以240墙体为例.单击“继续”按钮，如图所示.
输入多线样式名
勾选直线的“起点”和“端点”选项，选择图元下方的第一个选项，在偏移文本框中输入墙线偏移量，这里我们输入120，在“颜色”下拉列表框中选择“绿”，单击“线型”按钮，弹出“选择线型”对话框，在已加载的线型列表中选择需要的线型，我们选择“ByBlock”单击“确定”按钮，如图所示
设置第一条直线偏移量
5.绘制点
单击工具栏中的“点”按钮，可以进行点的绘制.通常默认的点很小，不选中的情况下很难看到.单击“格式”→“点样式”命令弹出“点样式”对话框，可选择不同的点的样式，也可通过“点大小”选项调整点的大小.装饰工程制图中，常使用点的样式来作为灯的表示符号，如图所示.
点的样式
定数等分：如果要将点按照一定数量等分摆放，可以使用定数等分命令.例如，要在一条指定距离的线段上定数等分摆放5个点，操作方法为单击“绘图”→“点”→“定数等分”命令，单击要等分的线段，5个点会将线段分为6段，所以，在命令行提示中输入线段数目为6，按回车键即可完成操作，如图所示.
点的定数等分
定距等分：如果要使点按规定的距离摆放，则可使用定距等分命令.例如，绘制500长的线段，要在线段上每120的部分绘制一点，单击“绘图”→“点”→“定距等分”命令后，单击要定距等分的线段，指定线段长度为120，按回车键完成点的定距等分绘制，如图所示.
点的定距等分
6.绘制矩形
选择工具栏中的“矩形”按钮，激活矩形命令.矩形命令是通过确定两个对角点的位置来确定矩形的大小的，激活命令后命令行会出现指定第一个角点，确定点的位置后输入相对坐标(@600，200)，表示绘制长600、宽200、相对起点为坐标原点的矩形.如果在指定第一个角点前输入“C”按回车键，则表示绘制带倒角的矩形，命令行提示指定倒角距离，倒角的距离可以相同也可以不同，第一个倒角的距离指的是逆时针方向的倒角距离，第二个倒角距离指的是顺时针方向的倒角距离.在指定矩形角点时还可输入标高、圆角、厚度、宽度、面积、尺寸、旋转等命令，如图所示
矩形命令提示
7.绘制圆
单击工具栏中的“圆”按钮，根据命令行提示“指定圆的圆心或[三点(3P)/两点(2P)/切点、切点、半径(T)]：”，直接单击视图上任意一点，即可确定圆心位置.(1)输入“3P”表示用指定圆周上三点的方法画圆.(2)输入“2P”表示指定直径的两端点画圆.(3)输入“T”表示按先指定两个相切对象，后给出半径的方法画圆.
8.绘制圆弧
单击工具栏中的“圆弧”按钮，激活圆弧命令.圆弧命令需要确定三个点.指定圆弧的起点，指定圆弧的第二个点(圆弧上中间部分的一个点)，指定圆弧的端点.
9.绘制椭圆
单击工具栏中的“椭圆”按钮，激活椭圆命令.根据命令行提示单击视图中任意位置指定椭圆的圆心，单击另一点确定椭圆的其中一个轴的半轴长度.再次单击，确定椭圆另一个轴的半轴长度.命令行提示如图所示。
椭圆命令行提示
10.绘制样条曲线
样条曲线用来绘制形状不规则的曲线，在装饰制图中通常用来绘制花纹.单击工具栏中的“样条曲线”按钮，通过在视图中连续点击创建点来进行曲线的绘制，结束时可单击鼠标右键确定或输入“T”指定端点的切向、输入“C”选择闭合绘制的图形，如图所示.
样条曲线绘制效果
VB.net与VB不同。
VB.net已经有专门绘图的类。
可以定义笔刷然后用Drawing类中的方法绘制。
Private Sub DrawEllipse()
Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics as System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.DrawEllipse(myPen, New Rectangle(0,0,200,300))
myPen.Dispose()
formGraphics.Dispose()
End Sub
Private Sub DrawRectangle()
Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics as System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.DrawRectangle(myPen, New Rectangle(0,0,200,300))
myPen.Dispose()
formGraphics.Dispose()
End Sub
一、分析：
1，这一类随时间而变化的曲线图，通常把横轴作为时间，把纵轴作为相应的值，在这里就是密度值。
2，点的集合就是线；一组时间、密度值，对应一个点，把点连接起来就构成了线。
二、在VB.NET中作图，需要知道并解决几个问题：
1，与VB6一样，VB.NET中默认的坐标系统，左上角为坐标原点，X轴的正向为从左向右，Y轴的正向是从上向下。
为了使得它与数学中的坐标系统相一致，可以使用VB.NET中Graphics类的两个方法；
1、TranslateTransform----平移变换
格式：Graphics.TranslateTransform(dx,dy)
其中：dx 和 dy分别是Single数据类型
2、ScaleTransform----缩放变换
格式：Graphics.ScaleTransform(sx,sy)
其中：sx 和 sy分别是Single数据类型；
例如：为了符合数学中的一般格式，可以使用下述代码：
Graphics.ScaleTransform(1, -1)
这样就把Y轴的正方向给翻过来了。
三、VB.NET中绘制图形
1，绘制圆或椭圆
'绘制图形的三步曲
'1，获得一个Graphics对象
Dim MyGraphics As Graphics
MyGraphics = Me.CreateGraphics
'2，定义一个Pen对象，用于绘制图形（轮廓线）
Dim MyPen As New Pen(Color.Black)
'3，定义一个Brush对象，用于填充图形（如果需要填充的话）
Dim MyBrush As New SolidBrush(Color.Orange)
'绘制一个实心圆，该圆在：直线x=200，y=200，x=200+100，y=200+100所划的矩形区域内
MyGraphics.FillEllipse(Brush, 200, 200, 100, 100)
'绘制一个空心圆，该圆在：直线x=200，y=200，x=200+100，y=200+100所划的矩形区域内
MyGraphics.DrawEllipse(Pen, 200, 200, 100, 100)
注意：最后两个数值如果不等，就是绘制椭圆
当圆足够小，就是点了。
2，绘制直线
'1，获得一个Graphics对象
Dim MyGraphics As Graphics
MyGraphics = Me.CreateGraphics
'2，定义一个Pen对象，用于绘制图形（轮廓线）
Dim MyPen As New Pen(Color.Black)
MyGraphics.DrawLine(MyPen, 200, 200, 100, 100)
'或者直接用
Me.CreateGraphics.DrawLine(New Pen(Color.Black), 50, 50, 200, 200)
