Attribute VB_Name = "Modul1"
'Declare Sub FloodFill Lib "gdi" Alias "floodfill" (ByVal _
'hdc%, ByVal x%, ByVal y%, ByVal color As Long)
Declare Function FloodFill Lib "gdi32" (ByVal hdc As Long, _
ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
