Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) _
  As Long
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 Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal _
  hObject As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, _
   ByVal x As Long, ByVal y As Long) As Long
 
Private Const FLOODFILLSURFACE = 1
 
Private Sub Command1_Click()
   Dim hdc As Long
   Dim hBrush As Long
   Dim hOldB  As Long
   Dim col As Long
 
   hdc = GetDC(SSTab1.hwnd)
   hBrush = CreateSolidBrush(RGB(255, 0, 180))
   SelectObject hdc, hBrush
   col = GetPixel(hdc, 4, 4)
   ExtFloodFill hdc, 4, 4, col, FLOODFILLSURFACE
End Sub