see the following code...

Private Sub Form_Paint()
Dim r As Single, initR As Single
Dim x As Single, y As Single, qbc As Integer

' Start with a clean surface.
Cls
' The center of all circles
x = ScaleWidth / 2: y = ScaleHeight / 2
' Initial radius is the lower of the two values.
If x < y Then initR = x Else initR = y
FillStyle = vbFSSolid ' Circles are filled.
' Draw circles, from the outside in.
For r = initR To 1 Step -(initR / 16)
' Use a different color for each circle.
FillColor = QBColor(qbc)
qbc = qbc + 1
Circle (x, y), r
Next
' Restore regular filling style.
FillStyle = vbFSTransparent
End Sub

i wondering what is the purpose of setting the fillstyle to vbfssolid and vbfstransparent ...

thank for any help!