Public Class Form1
    Dim WithEvents Pb As New PictureBox With {.Dock = DockStyle.Fill, .Parent = _
      Me}
    Dim WithEvents T As New Timer With {.Interval = 500, .Enabled = True}
    Dim k As Int32 = 3
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        Me.BackColor = Color.Black
        Me.ClientSize = New Size(800, 800)
    End Sub
 
    Private Sub Pb_Paint(sender As Object, e As _
      System.Windows.Forms.PaintEventArgs) Handles Pb.Paint
        e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
        Using p As New Pen(Brushes.Yellow, 2)
            Dim x(60), y(60) As Single
            For i = 0 To k
                x(i) = CSng(Pb.Width \ 2 + 300 * Math.Cos((2 * Math.PI / k) * _
                  i))
                y(i) = CSng(Pb.Width \ 2 - 300 * Math.Sin((2 * Math.PI / k) * _
                i))
            Next
            For i As Int32 = 0 To k - 1
                For j As Int32 = i + 1 To k
                    e.Graphics.DrawLine(p, x(i), y(i), x(j), y(j))
                Next
            Next
        End Using
    End Sub
 
    Private Sub T_Tick(sender As Object, e As System.EventArgs) Handles T.Tick
        If k < 18 Then k += 1 Else k = 3
        Me.Text = k.ToString & " Ecken"
        Pb.Invalidate()
    End Sub
End Class