Private Sub DrawLine2()
		Dim width As Double = 2000
		Dim height As Double = width / 2
		Dim lst() As Double = GetRandomValueList(CInt(width))
		Dim p As New Pen(Brushes.DarkBlue, 1)
		Dim watch As New Stopwatch
 
		Dim sb As New Text.StringBuilder
 
		watch.Start()
		Dim dGroup As New DrawingGroup
		Using dc As DrawingContext = dGroup.Open
			dc.DrawRectangle(Brushes.Transparent, New Pen(Brushes.Black, 2), _
			  New Rect(0, 0, width, height))
 
			Dim pointList As New List(Of Point)
 
			For i As Integer = 0 To lst.Count - 2
				pointList.Add(New Point(i, lst(i) * height))
			Next
			watch.Stop()
			sb.AppendLine("Punkte berechnen: " & watch.ElapsedMilliseconds.ToString)
			watch = Stopwatch.StartNew
 
			Dim path As New Path()
			Dim sg As New StreamGeometry()
			Using ctx As StreamGeometryContext = sg.Open
				ctx.BeginFigure(New Point(0, 0), False, False)
				ctx.PolyLineTo(pointList, True, True)
				watch.Stop()
				sb.AppendLine("PolyLines setzen " & watch.ElapsedMilliseconds)
				watch = Stopwatch.StartNew
			End Using
			path.Data = sg
			dc.DrawGeometry(Nothing, p, sg)
 
 
		End Using
		Image1.Source = New DrawingImage(dGroup)
		watch.Stop()
		sb.AppendLine("Fertig " & watch.ElapsedMilliseconds)
		Debug.WriteLine(sb.ToString)
	End Sub