动态添加LINE对象

       Dim line1 As New Shapes.Line '定义LINE
        line1.X1 = 150 '点1X坐标
        line1.Y1 = 150'点1Y坐标
        line1.X2 = 80'点2X坐标

        line1.Y2 = 250'点2Y坐标
        line1.StrokeThickness = 6
        line1.Stroke() = New SolidColorBrush(Colors.Green) '定义笔刷
        Canvas.SetLeft(line1, 25) '左边距
        LayoutRoot.Children.Add(line1)