FillColorZone

Declare Function FloodFill Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
'poi nell'evento Load del form scrivere:

Randomize Timer
AutoRedraw = True
DrawWidth = 1
ScaleMode = 3
FillStyle = 1
Circle (100, 100), 100, vbBlack
Circle (150, 150), 100, vbBlack
Circle (200, 200), 100, vbBlack
FillStyle = 0
AutoRedraw = False
'sempre nel form all'evento MouseDown scrivere:

If Button = vbLeftButton Then
FillColor = QBColor(Int(Rnd * 15))
FloodFill hdc, X, Y, vbBlack
End If
'provate ad eseguire l'applicazione cosi' scritta e guardate

'l'effetto che si avra' alla pressione del tasto sinistro del

'mouse su una zona all'interno o all'esterno dei tre cerchi

'disegnati.