VB6ではAutoredraw、FillStyle、FillColer、Pointのプロパティによって簡単に閉領域の塗りつぶしができました。 Picture1.FillStyle = 0 Picture1.FillColor = RGB(255, 255, 0) ExtFloodFill Picture1.hdc, X, Y, Picture1.Point(X, Y), 1