另一個在窗體起作用之前可能會發生的事件是Paint事件。如果將窗體的AutoRedraw事件設置為True, Paint事件就不會發生。在Paint事件的處理過程中，需要使用圖形方法重新繪制窗體的內容，包括Print, Line, Circle, Point, Cls等等.下面的代碼繪制一個多彩的回形區域:
Private
Dim
Dim
Cls
Sub Form-Paint(
r As Single,initR As Single
x As Single,y As Single,qbc As Integer
，清屏，圈心位于V幕中央
x-ScaleWidth/2: y..ScaleHeight/2
，取圓心坐標的小值作為半徑
If x<y Then initR-x Else initR-y
FillStyle-vbFSSolid’墳充圈形區城
，使用欺認的頗色，繪制同心圈
For r-initR To 1 Step一《initR/16)
FillColor-QBColor(gbc)
qbc-qbc+1
Circle (x,y),r
加ext
，還原墳充摸式
FillStyle-vbFSTransparent
End Sub
