將對象上的點設定為指定顏色。
語法
object .PSet[ Step] ( x , y ),[ color]
PSet方法的語法有如下對象限定符和部分：
| 部分 | 描述 |
| object | 可選的。對象表達式，其值為“套用於”列表中的對象。如果 object省略，具有焦點的窗體作為 object。 |
| Step | 可選的。關鍵字，指定相對於由 CurrentX和 CurrentY屬性提供的當前圖形位置的坐標。 |
| ( x, y ) | 必需的。 Single（單精度浮點數），被設定點的水平（ x 軸）和垂直（ y 軸）坐標。 |
| color | 可選的。 Long（長整型數），為該點指定的 RGB 顏色。如果它被省略，則使用當前的 ForeColor屬性值。可用 RGB函式或 QBColor函式指定顏色。 |
說明
所畫點的尺寸取決於 DrawWidth屬性值。當 DrawWidth為 1， PSet將一個像素的點設定為指定顏色。當 DrawWidth大於 1，則點的中心位於指定坐標。
畫點的方法取決於 DrawMode和 DrawStyle 屬性值。
執行 PSet時， CurrentX和 CurrentY屬性被設定為參數指定的點。
想用 PSet方法清除單一像素，規定該像素的坐標，並用 BackColor屬性設定作為 color參數。
套用於Form 對象、Forms 集合、PictureBox 控制項、Printer 對象和 Printers 集合、PropertyPage 對象、UserControl 對象等等
示例
這個示例用 PSet方法在窗體上畫五彩碎紙。想運行這個示例，將代碼放入窗體的General 部分。按 F5 並單擊窗體。
Sub Form_Click()
Dim CX, CY, Msg, XPos, YPos ' 聲明變數。
ScaleMode = 3 ' 設定ScaleMode 為像素。
DrawWidth = 5 ' 設定DrawWidth.
ForeColor = QBColor(4) ' 設定前景為紅色。
FontSize = 24 ' 設定點的大小。
CX = ScaleWidth / 2 ' 得到水平中點。
CY = ScaleHeight / 2 ' 得到垂直中點。
Cls ' 清窗體。
Msg = "Happy New Year!"
CurrentX = CX - TextWidth(Msg) / 2 ' 水平位置。
CurrentY = CY - TextHeight(Msg) ' 垂直位置。
Print Msg ' 列印訊息。
Do
XPos = Rnd * ScaleWidth ' 得到水平位置。
YPos = Rnd * ScaleHeight ' 得到垂直位置。
PSet (XPos, YPos), QBColor(Rnd * 15) ' 畫五彩碎紙。
DoEvents ' 進行其它處理。
Loop
End Sub
