Private Sub DrawBone(ByVal line As LineShape, ByVal Start As Point, ByVal _
  length As Integer, ByVal angle As Integer)
        'Linie Anhand Startpunkt, Winkel und Länge Zeichnen
        Dim _angle As Double = angle * (Math.PI / 180)
        Dim endx = CInt(length * Math.Cos(_angle))
        Dim endy = CInt(length * Math.Sin(_angle))
        Dim endpoint = New Point(Start.X + endx, Start.Y + endy)
        line.StartPoint = Start
        line.EndPoint = endpoint
    End Sub

DrawBone(l1, New Point(50, 50), txtLaenge1.Text, txtW1.Text)
            DrawBone(l2, l1.EndPoint, txtLaenge2.Text, txtW2.Text)
            DrawBone(l3, l2.EndPoint, txtLaenge3.Text, txtW3.Text)