在Visual Basic（VB）中画线可以通过多种方法实现，以下是几种常见的方法：
方法一：使用Graphics对象
你可以使用窗体上的Graphics对象来绘制直线。以下是一个简单的示例代码，它在窗体上随机绘制20条线段：
```vb
Private Sub Command1_Click（）
Dim I As Integer
Dim X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer
Dim DrawColor As Long
Dim DrawWidth As Integer
Randomize
Cls
ScaleMode = 3 ' 设置 ScaleMode 为像素
DrawMode = 13 ' 输出外观（前景色与背景色的操作方式）
DrawStyle = 0 ' 线条样式（0实线，1虚线，2点线，3点划线，4双点划线，5无线，6内收实线）
For I = 1 To 20
X1 = Rnd * Me.ScaleWidth
Y1 = Rnd * Me.ScaleHeight
X2 = Rnd * Me.ScaleWidth
Y2 = Rnd * Me.ScaleHeight
DrawWidth = Rnd * 10 + 1 ' 线条宽度，数值可选为1~32767，不过太大了就无法分辨了
ColorR = Rnd * 256
ColorG = Rnd * 256
ColorB = Rnd * 256
DrawColor = ColorR + （ColorG << 8） + （ColorB << 16）
Me.Picture1.Line （X1, Y1）-（X2, Y2）, RGB（DrawColor And &HFF, （DrawColor And &HFF00） >> 8, （DrawColor And &HFF0000） >> 16）
Next I
End Sub
```
方法二：使用Line方法
你也可以使用VB中的`Line`方法来绘制直线。以下是一个示例代码，它在两个文本框中输入点的坐标，然后绘制直线：
```vb
Private Sub btnDrawLine_Click（sender As Object, e As EventArgs） Handles btnDrawLine.Click
Dim x1 As Integer = CInt（txtX1.Text）
Dim y1 As Integer = CInt（txtY1.Text）
Dim x2 As Integer = CInt（txtX2.Text）
Dim y2 As Integer = CInt（txtY2.Text）
Dim g As Graphics = PictureBox1.CreateGraphics（）
g.DrawLine （x1, y1）-（x2, y2）, RGB（255, 0, 0） ' 红色直线
End Sub
```
方法三：使用PictureBox控件
你还可以使用PictureBox控件来绘制直线。以下是一个示例代码，它在PictureBox上绘制多条连续的直线：
```vb
Private Sub Form_Load（sender As Object, e As EventArgs） Handles MyBase.Load
Me.Picture1.Visible = False
End Sub
Private Sub Form_MouseMove（sender As Object, button As Integer, shift As Integer, x As Single, y As Single） Handles MyBase.MouseMove
Me.Picture1.cls
Me.Picture1.Visible = True
Me.Picture1.Line （x, y）-（x + 100, y + 100）, RGB（0, 0, 255） ' 蓝色直线
End Sub
```
方法四：使用Drawing2D命名空间
如果你需要更高级的线条样式，可以使用`Drawing2D`命名空间中的`Pen`类。以下是一个示例代码，它设置线帽样式并绘制直线：