'OK, I give up! How do I make this code turn the white boxes it makes with left click fill with Red using ExtFloodFill (Yes,I do want to use this instead of floodfill,I just need this to get started).Do I have to set other properties? I'm using VB6 and on Win98.Here's the code that doesn't work:


Private Const FLOODFILLBORDER = 0
Private Const FLOODFILLSURFACE = 1

Private Declare Function ExtFloodFill Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long, ByVal wFillType As Long) As Long

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
fillcolor = VBRed
If Button = vbRightButton Then
ExtFloodFill hdc, X, Y, vbWhite, FLOODFILLSURFACE
Else
Line (CurrentX, CurrentY)-(X, Y), vbWhite, BF
End If
End Sub