FillStyle Property Example

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

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