在Windows窗体编程中，要绘制一条线，你需要使用`System.Drawing.Pen`和`System.Drawing.Graphics`对象。以下是一个简单的示例，展示了如何在窗体上绘制一条线：
```vb
Dim myPen As New System.Drawing.Pen（System.Drawing.Color.Red） ' 创建一个红色的画笔
Dim formGraphics As System.Drawing.Graphics = Me.CreateGraphics（） ' 获取窗体的图形对象
formGraphics.DrawLine（myPen, 0, 0, 200, 200） ' 使用画笔在窗体上绘制一条线，从（0,0）到（200,200）
myPen.Dispose（） ' 释放画笔资源
formGraphics.Dispose（） ' 释放图形对象资源
```
如果你想在窗体的`Paint`事件中绘制线条，你可以这样做：
```vb
Private Sub Form1_Paint（sender As Object, e As PaintEventArgs） Handles MyBase.Paint
Dim myPen As New System.Drawing.Pen（System.Drawing.Color.Red） ' 创建一个红色的画笔
e.Graphics.DrawLine（myPen, 0, 0, 200, 200） ' 使用画笔在窗体上绘制一条线，从（0,0）到（200,200）
myPen.Dispose（） ' 释放画笔资源
End Sub
```
请注意，如果你在窗体的`Load`事件中调用绘制方法，可能不会立即看到绘制的内容，因为窗体可能还没有完全显示出来。为了确保绘制的内容在窗体显示时能够正确显示，你应该在`OnPaint`方法中进行绘制，或者在窗体的`Activate`或`Resize`事件中调用绘制方法。
此外，如果你想要在窗体上的特定控件上绘制线条，你可以使用该控件的`CreateGraphics`方法来获取`Graphics`对象，然后在该对象上绘制线条。例如，如果你想在按钮上绘制线条，可以这样做：
```vb
Dim g As Graphics = button1.CreateGraphics（） ' 获取按钮的图形对象
g.DrawLine（New Pen（Color.Red）, 0, 0, 10, 10） ' 使用画笔在按钮上绘制一条线，从（0,0）到（10,10）
```
请记住，在使用完`Graphics`和`Pen`对象后，应该调用它们的`Dispose`方法来释放系统资源。