Option Explicit
 
Private Type POINTAPI
  x As Long
  y As Long
End Type
 
Private Declare Function Polygon Lib "gdi32" (ByVal hds As Long, _
  lpPoint As POINTAPI, ByVal nCount As Long) As Long
 
Private Declare Sub FloodFill Lib "gdi32" (ByVal hDC&, ByVal x&, _
  ByVal y&, ByVal Color&)
 
Private Sub Command1_Click()
  ScaleMode = 3
  ForeColor = 0
  Line (100, 150)-(300, 150)
  Line -(200, 50)
  Line -(100, 150)
End Sub
 
Private Sub Command2_Click()
  FillStyle = 0
  FillColor = RGB(255, 0, 128)
  Call FloodFill(hDC, 200, 100, ForeColor)
End Sub