求用VB程序编写的二维图形的填充代码

VB 填充封闭区间

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 Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Private Sub Command1_Click()
Dim hBrush As Long
Dim OldhBrush As Long

hBrush = CreateSolidBrush(RGB(0, 0, 255))'要填充的颜色
OldhBrush = SelectObject(Me.hdc, hBrush)

Me.Line (10, 10)-(100, 100), RGB(255, 0, 0), B

FloodFill Me.hdc, 20, 20, RGB(255, 0, 0)'区间边界颜色

SelectObject Me.hdc, OldhBrush
DeleteObject hBrush
End Sub