PictureBox 怎么连续画线呢
就是第二条线的起点坐标 是第一条线的终点坐标

Picture1.Line -(3000, 2000)
Picture1.Line -(1500, 2000)
Picture1.Line -(1500, 500)

请指教
谢谢


[解决办法]
LineTo
MoveTo
[解决办法]

VB code

Line 方法示例这个示例用 Line 方法在窗体上画了几个同心矩形。要运行这个示例，将此代码放入窗体的 General 部分。按 F5 并单击窗体。Sub Form_Click ()   Dim CX, CY, F, F1, F2, I   ' 声明变量。   ScaleMode = 3   ' 设置 ScaleMode 为像素。   CX = ScaleWidth / 2   ' 水平中点。   CY = ScaleHeight / 2   ' 垂直中点。   DrawWidth = 8   ' 设置 DrawWidth。   For I = 50 To 0 Step -2      F = I / 50   ' 执行中间步骤。      F1 = 1 - F: F2 = 1 + F   ' 计算。      Forecolor = QBColor(I Mod 15)   ' 设置前景颜色。      Line (CX * F1, CY * F1)-(CX * F2, CY * F2), , BF   Next I   DoEvents   ' 做其它处理。   If CY > CX Then   ' 设置 DrawWidth。      DrawWidth = ScaleWidth / 25   Else      DrawWidth = ScaleHeight / 25   End If   For I = 0 To 50 Step 2   ' Set up loop.      F = I / 50   ' 执行中间。      F1 = 1 - F: F2 = 1 + F   ' 计算。      Line (CX * F1, CY)-(CX, CY * F1)   ' 画左上角。      Line -(CX * F2, CY)   ' 画右上角。      Line -(CX, CY * F2)   ' 画右下角。      Line -(CX * F1, CY)   ' 画左下角。      Forecolor = QBColor(I Mod 15)   ' 每次改变颜色。   Next I   DoEvents   ' 进行其它处理。End Sub