WPF Charting for Polar Chart

Good Afternoon Everyone....I am new to WPF application. Based on radious only I want to draw polar chart and plot x,y value in that polar chart which are coming from text box. Actually I want  to draw polar chart in WPF but in WPF Toolkit there are pie,column,bar,line,area,scatter charts are present only. So, how to achieve this with out using third party control in vb.net. Please tell me. I am trying it with scatter chart in WPF. To convert scatter into polar,but its not working fine.I have achieved this in windows application,where I converted point chart to polar chart but using same logic is not possible for WPF Application. my code in windows App is...  

 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Chart1.ChartAreas("ChartArea1").AxisX.Minimum = -100
        Chart1.ChartAreas("ChartArea1").AxisX.Maximum = 100
        Chart1.ChartAreas("ChartArea1").AxisY.Minimum = -100
        Chart1.ChartAreas("ChartArea1").AxisY.Maximum = 100
        Chart1.ChartAreas("ChartArea1").AxisX.Title = "X - Axis"
        Chart1.ChartAreas("ChartArea1").AxisY.Title = "Y - Axis"
        Chart1.ChartAreas("ChartArea1").AxisX.Crossing = 0
        Chart1.ChartAreas("ChartArea1").AxisY.Crossing = 0
        'Chart1.Series("Series1").Points.AddXY(0.1, 0.1)
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim x(360) As Long
        Dim y(360) As Long
        For i = 0 To 359 Step 1
            x(i) = Val(TextBox1.Text) * Math.Cos(i)
            y(i) = Val(TextBox1.Text) * Math.Sin(i)
            Chart1.Series("Series1").Points.AddXY(x(i), y(i))
        Next
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Chart1.Series("Series1").Points.Clear()
        Chart1.ChartAreas("ChartArea1").AxisX.Minimum = -100
        Chart1.ChartAreas("ChartArea1").AxisX.Maximum = 100
        Chart1.ChartAreas("ChartArea1").AxisY.Minimum = -100
        Chart1.ChartAreas("ChartArea1").AxisY.Maximum = 100
        Chart1.ChartAreas("ChartArea1").AxisX.Title = "X - Axis"
        Chart1.ChartAreas("ChartArea1").AxisY.Title = "Y - Axis"
        Chart1.ChartAreas("ChartArea1").AxisX.Crossing = 0
        Chart1.ChartAreas("ChartArea1").AxisY.Crossing = 0
        'Chart1.Series("Series1").Points.AddXY(0.1, 0.1)
    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Chart1.Series("Series2").Points.AddXY(Val(TextBox2.Text), Val(TextBox3.Text))
    End Sub