Formun herhangi bir noktasına nokta koymak için kullanılır.

PSet (X_baslangıç,Y_baslangıç), çizgi rengi

Örnek 1

PSet (500, 500),RGB(35,24,111)

Örnek 2

Private Sub Command1_Click()

Dim i

DrawWidth = 4

    For i = 500 To 2500 Step 10

PSet (i, i), QBColor(4)

    Next

End Sub

Örnek 3

Private Sub Command1_Click()

Cls

Dim a, b, r, t, x, y

For t = -100 To 100 Step 0.01

    a = ScaleWidth / 2

    b = ScaleHeight / 2

    r = Sin(6 * t) * Cos(6 * t)

    x = r * Cos(t)

    y = r * Sin(t)

    PSet (a + x * 3800, b - y * 3800)

Next

End Sub

Örnek 4

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

If Button = 1 Then

    ForeColor = RGB(255, 0, 0)

    DrawWidth = 3

    PSet (x, y)

    End If

End Sub