Option Explicit

Private Declare Function FloodFill Lib "gdi32" ( _
   ByVal hDC As Long, ByVal x As Long, ByVal y As Long, _
   ByVal crColor As Long) As Long

Private Sub Command1_Click()
 With Picture1
    .ScaleMode = vbPixels
    .AutoRedraw = True
    .Cls
    
    .FillStyle = vbFSTransparent
    .DrawStyle = vbSolid
    Picture1.Circle ( 100 ,  100 ),  50 , vbRed
    Picture1.Circle ( 90 ,  110 ),  80 , vbRed
    
    .FillColor = RGB( 0 ,  127 ,  0 )
    .FillStyle = vbDiagonalCross ' vbFSSolid
    FloodFill .hDC,  20 ,  100 , vbRed
 End With
End Sub