Dim g As Graphics = e.Graphics
Dim i(4) As PointF
Dim j As Int16 = 0
Dim h As Int16 = 0
Dim a As Int16 = 0
Dim b As Int16 = 0
For j = 0 To 500
i(1) = New PointF(a, j + 100)
i(2) = New PointF(j + 100, h + 100)
i(3) = New PointF(h + 100, b + 100)
i(4) = New PointF(b + 100, a)
g.DrawPolygon(New Pen(Color.Brown, 1), New PointF() {i(1), i(2), i(3), i(4)})
If j = 300 Then
g.DrawPolygon(New Pen(Color.Brown, 1), New PointF() {i(1), i(2), i(3), i(4)})
End If
Next