Public Declare Function FloodFill Lib "gdi32" Alias "FloodFill" (ByVal hdc As _
  Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long

Privat Sub Command1_Click()
Dim Dummy as Variant
PictureBox1.FillColor = vbred
Dummy = FloodFill(PictureBox1.hdc, 196,12, vbBlack)
End Sub