Option Explicit
 
Private Declare Sub FloodFill Lib "GDI32" _
 (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long)
 
' Dies ist der Code für das Formular.
Private Sub Form_Click()
   ScaleMode = vbPixels
   ForeColor = &H80000003
 
   Line (100, 50)-(300, 50)
   Line -(200, 200)
   Line -(100, 50)
 
   FillStyle = vbFSSolid
   FillColor = vbCyan
   FloodFill hDC, 200, 100, ForeColor
End Sub