Private Sub Command1_Click()
Dim ComObject As clsLayoutObject
Dim Points(3) As DFPoint
 
Set ComObject = New clsLayoutObject
 
Points(0).X = 0
Points(0).Y = 0
Points(1).X = 0
Points(1).Y = 100
Points(2).X = 100
Points(2).Y = 100
Points(3).X = 100
Points(3).Y = 0
 
Call ComObject.Create(Me.Picture1.hDC, Points())
 
End Sub

Friend Sub Create(PainthDC, PolyPoints() As DFPoint)
Dim PolyVal As Long, hBrushOld As Long, color As Long
 
color = vbGreen
 
hBrushOld = SelectObject(PainthDC, CreateHatchBrush(HS_BDIAGONAL, color))
Polygon PainthDC, PolyPoints(0), UBound(PolyPoints())
DeleteObject SelectObject(PainthDC, hBrushOld)
 
End Sub