WPF VB.Net

  xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
  xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
  Title="Polylines" Height="340" Width="250">
  
    
      
              Points="10 170,160 110,10 160,60 110,210 170" />
      
              Points="10 710,160 10,110 160,160 10,210 70, 0 70" />
      
      
    
  


//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Media
Imports System.Windows.Shapes
Namespace WpfApplication1
  Public Partial Class Polylines
    Inherits Window
    Public Sub New()
      InitializeComponent()
      For i As Integer = 0 To 69
        Dim x As Double = i * Math.PI
        Dim y As Double = 40 + 30 * Math.Sin(x / 10)
        polyline1.Points.Add(New Point(x, y))
      Next
    End Sub
  End Class
End Namespace