Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
    System.Windows.Forms.PaintEventArgs) Handles _
    MyBase.Paint
    Dim pts() As Point = { _
        New Point(10, 10), _
        New Point(200, 100), _
        New Point(300, 50), _
        New Point(350, 120), _
        New Point(240, 260), _
        New Point(120, 150), _
        New Point(50, 310), _
        New Point(70, 190) _
    }
    e.Graphics.SmoothingMode = _
        Drawing2D.SmoothingMode.AntiAlias
    e.Graphics.DrawPolygon(Pens.Black, pts)
End Sub