以下是一个使用VB.Net编写的绘制直线的程序Imports System.Drawing.Drawing2D ' 导入命名空间
Public Class Form1 ' 定义Form1类

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load  ' 窗体加载事件处理函数
    Dim g As Graphics = Me.CreateGraphics()  ' 创建Graphics对象并将其赋值给g变量

    Dim p As New Pen(Color.Red, 2)  ' 创建Pen对象并将其赋值给p变量，指定画笔的颜色为Red，宽度为2

    g.DrawLine(p, 0, 0, 200, 200)  ' 用g对象的DrawLine方法在桌面上画一条从(0,0)到(200,200)的直线

End Sub

End Class