FillColor Property Example

This example constructs a circle on your form with random FillColor and FillStyle property settings as you click the mouse. To try this example, paste the code into the Declarations section of a form, and then press F5 and click the form.

Private Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
   FillColor = QBColor(Int(Rnd * 15))   ' Choose random FillColor.
   FillStyle = Int(Rnd * 8)   ' Choose random FillStyle.
   Circle (X, Y), 250   ' Draw a circle.
End Sub