Sub Schaltfl?che1_Click()
    Seillinie.Show
End Sub

Sub Rollenbatterie(a As Double)
    Dim ap As NALLCOMSERVERLib.AllplApplication
    Dim Line As NALLCOMSERVERLib.Line2D
    Dim circ As NALLCOMSERVERLib.Ellipse2D
    Dim ExcelApp As Excel.Application
    Dim wbkObj As Workbook
    Dim ShtObj As Worksheet
    Dim anfang(0 To 2) As Double
    Dim ende(0 To 2) As Double
    Dim MoveTo(0 To 2) As Double
    Dim pi As DoubleSeit
    Dim zentrum(0 To 2) As Double
    Dim radius As Double
    Dim awinkel As Double
    Dim ewinkel As Double
    Dim dx As Double    'L?ngenunterschied Sehnenschnittpunkte
    Dim dy As Double    'H?henunterschied Sehnenschnittpunkte
    Dim i As Double     'Seil 1 - 4
    Dim b As Double     'Ma?stabsabh?ngige Werte
    Dim s               'Text der L?ngen- und H?henkote, zwecks Format
    Dim df2 As Double   'Wert zur Berechnung von f2
    Dim f2 As Double    'Abstand Sehnenschnittpunkt - Hauptbolzen Rollenbatterie
    Dim ga As Double    'Winkel zur Berechnung von f2
    Dim de As Double    'Winkel zur Berechnung von f2
    Dim rd As Double    'Rollendurchmesser
    Dim rab As Double   'Rollenabstand
    Dim xs As Double    'x-Koordinate Sehnenschnittpunkt
    Dim ys As Double    'y-Koordinate Sehnenschnittpunkt
    Dim x As Double     'x-Abstand Sehnenschnittpunkt - Hauptbolzen
    Dim y As Double     'y-Abstand Sehnenschnittpunkt - Hauptbolzen
    Dim x1 As Double    'Wert zur Berechnung von f2
    Dim y1 As Double    'Wert zur Berechnung von f2
    Dim kw As Double    'Knickwinkel --> Wert zur Berechnung von f2
    Dim zrb(0 To 2) As Double   'Zentrum Rollenbatterie
    Dim l As Double
    Dim l2 As Double
    Dim zr(0 To 2) As Double    'Zentrum Rolle
    Dim pkt(0 To 2) As Double   'Punkte f?r diverse Berechnungen
    Dim pkt1(0 To 2) As Double
    Dim pkt1_2(0 To 2) As Double
    Dim pkt2(0 To 2) As Double
    Dim pkt3(0 To 2) As Double
    Dim pkt3_4(0 To 2) As Double
    Dim pkt4(0 To 2) As Double
    Dim pkt5(0 To 2) As Double
    Dim pkt5_6(0 To 2) As Double
    Dim pkt6(0 To 2) As Double
    Dim pkt7(0 To 2) As Double
    Dim pkt7_8(0 To 2) As Double
    Dim pkt8(0 To 2) As Double
    Dim pkt9(0 To 2) As Double
    Dim pkt9_10(0 To 2) As Double
    Dim pkt10(0 To 2) As Double
    Dim pkt11(0 To 2) As Double
    Dim pkt11_12(0 To 2) As Double
    Dim pkt12(0 To 2) As Double
    Dim pkt13(0 To 2) As Double
    Dim pkt13_14(0 To 2) As Double
    Dim pkt14(0 To 2) As Double
    Dim pkt15(0 To 2) As Double
    Dim pkt15_16(0 To 2) As Double
    Dim pkt16(0 To 2) As Double
    Dim pkt1_4(0 To 2) As Double
    Dim pkt5_8(0 To 2) As Double
    Dim pkt1_6(0 To 2) As Double
    Dim pkt7_10(0 To 2) As Double
    Dim pkt1_6x2(0 To 2) As Double
    Dim pkt7_10x2(0 To 2) As Double
    Dim pkt7_12(0 To 2) As Double
    Dim pkt7_12x2(0 To 2) As Double
    Dim pkt1_8(0 To 2) As Double
    Dim pkt9_16(0 To 2) As Double
    Dim pkt9_12(0 To 2) As Double
    Dim pkt13_16(0 To 2) As Double
    Dim pkt1_8x2(0 To 2) As Double
    Dim pkt9_16x2(0 To 2) As Double
    Dim pkt9_14(0 To 2) As Double
    Dim pkt9_14x2(0 To 2) As Double
    Dim si As Double    'Winkel f?r die Rollenbatterie
   
    Set ExcelApp = GetObject(, "Excel.Application")
    Set ShtObj = ExcelApp.Worksheets(1)
    Set ap = New NALLCOMSERVERLib.AllplApplication
    Set Line = New NALLCOMSERVERLib.Line2D
    Set circ = New NALLCOMSERVERLib.Ellipse2D