Create a Polygon with no Intersecting Lines

[NinjaNic]

Hello!

Today I would like to learn how to create a polygon without any intersecting lines. How can this be done?

Thanks.

This is something I just wrote to create any random polygon.

Private Sub CreatePolygon(ByRef Color As Color, ByRef LocationBounds As Rectangle, Optional ByRef NumberOfPoints As Int32 = 10)
        Dim R As New Random
        Dim PolygonPointsList As New List(Of Point)
        Dim PolygonArray() As Point
        Dim G1 As Graphics = Me.CreateGraphics
        Dim Sb As New SolidBrush(Color)
        For i As Int32 = 1 To NumberOfPoints Step 1
            Dim NewPt As New Point(CInt(R.Next(LocationBounds.X, LocationBounds.X + LocationBounds.Width)), _
                                   CInt(R.Next(LocationBounds.Y, LocationBounds.Y + LocationBounds.Height)))
            PolygonPointsList.Add(NewPt)
        Next
        PolygonArray = PolygonPointsList.ToArray
        Me.Refresh()
        G1.FillPolygon(Sb, PolygonArray)
    End Sub