' Draw the radar plot.
    Private Sub picCanvas_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles picCanvas.Paint
        ' Generate coordinates for the points.
        Dim pts(m_RData.Length - 1) As PointF
        Dim theta As Single = 0
        Dim dtheta As Single = CSng(2 * PI / (m_RData.Length - 1))
        For i As Integer = 0 To m_RData.Length - 1
            pts(i) = New PointF( _
                CSng(m_RData(i) * Cos(theta)), _
                CSng(m_RData(i) * Sin(theta)))
            theta += dtheta
        Next i

        ' Find the largest value so we can scale nicely
        Dim max_r As Single = m_RData(0)
        For i As Integer = 0 To m_RData.Length - 1
            If max_r < m_RData(i) Then max_r = m_RData(i)
        Next i

        ' Transform to scale the result
        Dim the_scale As Single = _
            CSng(Min(picCanvas.ClientSize.Width, _
                     picCanvas.ClientSize.Height) / 2 / max_r)
        e.Graphics.ScaleTransform( _
            the_scale, the_scale, _
            Drawing2D.MatrixOrder.Append)

        ' Transform to center the result
        e.Graphics.TranslateTransform( _
            picCanvas.ClientSize.Width \ 2, _
            picCanvas.ClientSize.Height \ 2, _
            Drawing2D.MatrixOrder.Append)

        ' Draw
        e.Graphics.Clear(picCanvas.BackColor)

        ' Draw the radar graph
        e.Graphics.FillPolygon(Brushes.LightBlue, pts)
        Dim black_pen As New Pen(Color.Black, 0)
        e.Graphics.DrawPolygon(black_pen, pts)
        black_pen.Dispose()

        ' Draw radius
        Dim blue_pen As New Pen(Color.Blue, 0)
        For i As Integer = 0 To pts.Length - 1
            e.Graphics.DrawLine(blue_pen, _
                New PointF(0, 0), pts(i))
        Next i
        blue_pen.Dispose()

        ' Draw radius circles.
        If IsNumeric(2) Then
            Dim circle_increment As Single = _
                CSng(Val(2))
            Dim white_pen As New Pen(Color.Red, 0)
            For r As Single = circle_increment To max_r + 1 Step circle_increment
                e.Graphics.DrawEllipse(white_pen, -r, -r, 2 * r, 2 * r)
            Next r
            white_pen.Dispose()
        End If

    End Sub