VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Create_Drawingtext 
   Caption         =   "Drawingtext erstellen"
   ClientHeight    =   11865
   ClientLeft      =   45
   ClientTop       =   375
   ClientWidth     =   11055
   OleObjectBlob   =   "Create_Drawingtext.frx":0000
   StartUpPosition =   1  'Fenstermitte
End
Attribute VB_Name = "Create_Drawingtext"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' Makro:        Create_Drawingtext
' Version:      1.0
' Catia Level:  V5R19
' UIL:          English (User Interface Language)
' Autor:        Christian Obholzer
' E-Mail:       ch.obholzer@aon.at
' Erstellt:     10.10.2010
' Zweck:        Es wird eine Ansicht mit einem Text erstellt
'-----------------------------------------------------------------------------------
' Änderungen:   Datum, Name
'               Hier wird die Änderung angegeben
'               Datum, Name
'               Hier wird die Änderung angegeben
'-----------------------------------------------------------------------------------

Option Explicit

    '***Deklarationen
    Public intRot As Integer
    Public intGruen As Integer
    Public intBlau As Integer

Private Sub chk_Hochgestellt_Click()

    '***CheckBoxen aktivieren und deaktivieren
    If Me.chk_Hochgestellt.Value = True Then
        Me.chk_Tiefgestellt.Value = False
    ElseIf Me.chk_Hochgestellt.Value = False Then
        Me.chk_Hochgestellt.Value = False
    End If

End Sub

Private Sub chk_Negativer_Endwinkel_Click()

    '***Negativen Endwinkel durch die Mulitplikation von -1 erstellen
    If Me.chk_Negativer_Endwinkel.Value = True Then
        Me.cmb_Endwinkel.Value = Me.cmb_Endwinkel.Value * (-1)
    ElseIf Me.chk_Negativer_Endwinkel.Value = False Then
        Me.cmb_Endwinkel.Value = Me.cmb_Endwinkel.Value * (-1)
    End If

End Sub

Private Sub chk_Tiefgestellt_Click()

    '***CheckBoxen aktivieren und deaktivieren
    If Me.chk_Tiefgestellt.Value = True Then
        Me.chk_Hochgestellt.Value = False
    ElseIf Me.chk_Tiefgestellt.Value = False Then
        Me.chk_Tiefgestellt.Value = False
    End If

End Sub

Private Sub chk_Ueberstrichen_Click()

    '***CheckBoxen aktivieren und deaktivieren
    If Me.chk_Ueberstrichen.Value = True Then
        Me.chk_Unterstrichen.Value = False
    ElseIf Me.chk_Ueberstrichen.Value = False Then
        Me.chk_Ueberstrichen.Value = False
    End If

End Sub

Private Sub chk_Unterstrichen_Click()

    '***CheckBoxen aktivieren und deaktivieren
    If Me.chk_Unterstrichen.Value = True Then
        Me.chk_Ueberstrichen.Value = False
    ElseIf Me.chk_Unterstrichen.Value = False Then
        Me.chk_Unterstrichen.Value = False
    End If

End Sub

Private Sub cmb_Color_Change()

    '***Farbe der TextBox definieren
    If Me.cmb_Color.Value = "Schwarz" Then
        Me.txt_Color.BackColor = &H0&
        intRot = 0
        intGruen = 0
        intBlau = 0
    ElseIf Me.cmb_Color.Value = "Rot" Then
        Me.txt_Color.BackColor = &H80&
        intRot = 128
        intGruen = 0
        intBlau = 0
    ElseIf Me.cmb_Color.Value = "Grün" Then
        Me.txt_Color.BackColor = &H8000&
        intRot = 0
        intGruen = 128
        intBlau = 0
    ElseIf Me.cmb_Color.Value = "Blau" Then
        Me.txt_Color.BackColor = &H800000
        intRot = 0
        intGruen = 0
        intBlau = 128
    ElseIf Me.cmb_Color.Value = "Gelb" Then
        Me.txt_Color.BackColor = &H8080&
        intRot = 128
        intGruen = 128
        intBlau = 0
    ElseIf Me.cmb_Color.Value = "Purpur" Then
        Me.txt_Color.BackColor = &H800080
        intRot = 128
        intGruen = 0
        intBlau = 128
    ElseIf Me.cmb_Color.Value = "Blaugrün" Then
        Me.txt_Color.BackColor = &H808000
        intRot = 0
        intGruen = 128
        intBlau = 128
    ElseIf Me.cmb_Color.Value = "Hellrot" Then
        Me.txt_Color.BackColor = &HFF&
        intRot = 255
        intGruen = 0
        intBlau = 0
    ElseIf Me.cmb_Color.Value = "Hellgrün" Then
        Me.txt_Color.BackColor = &HFF00&
        intRot = 0
        intGruen = 255
        intBlau = 0
    ElseIf Me.cmb_Color.Value = "Hellblau" Then
        Me.txt_Color.BackColor = &HFF0000
        intRot = 0
        intGruen = 0
        intBlau = 255
    ElseIf Me.cmb_Color.Value = "Hellgelb" Then
        Me.txt_Color.BackColor = &HFFFF&
        intRot = 255
        intGruen = 255
        intBlau = 0
    ElseIf Me.cmb_Color.Value = "Hellpurpur" Then
        Me.txt_Color.BackColor = &HFF00FF
        intRot = 255
        intGruen = 0
        intBlau = 255
    ElseIf Me.cmb_Color.Value = "Hellblaugrün" Then
        Me.txt_Color.BackColor = &HFFFF00
        intRot = 0
        intGruen = 255
        intBlau = 255
    ElseIf Me.cmb_Color.Value = "Pastellrot" Then
        Me.txt_Color.BackColor = &H8080FF
        intRot = 255
        intGruen = 128
        intBlau = 128
    ElseIf Me.cmb_Color.Value = "Pastellgrün" Then
        Me.txt_Color.BackColor = &H80FF80
        intRot = 128
        intGruen = 255
        intBlau = 128
    ElseIf Me.cmb_Color.Value = "Pastellblau" Then
        Me.txt_Color.BackColor = &HFF8080
        intRot = 128
        intGruen = 128
        intBlau = 255
    ElseIf Me.cmb_Color.Value = "Chreme" Then
        Me.txt_Color.BackColor = &H80FFFF
        intRot = 255
        intGruen = 255
        intBlau = 128
    ElseIf Me.cmb_Color.Value = "Rosa" Then
        Me.txt_Color.BackColor = &HFF80FF
        intRot = 255
        intGruen = 128
        intBlau = 255
    ElseIf Me.cmb_Color.Value = "Babyblau" Then
        Me.txt_Color.BackColor = &HFFFF80
        intRot = 128
        intGruen = 255
        intBlau = 255
    End If

End Sub

Private Sub cmd_Beenden_Click()

    '***Fenster schließen
    Unload Me

End Sub


Private Sub cmd_Text_erstellen_Click()

    '***Deklarationen
    Dim objWindows As Windows
    Dim objDoc As Document
    Dim strTyp As String
    Dim drwSheets As DrawingSheets
    Dim drwSheet As DrawingSheet
    Dim drwViews As DrawingViews
    Dim drwViewneu As DrawingView
    Dim drwView As DrawingView
    Dim intX As Integer
    Dim intY As Integer
    Dim drwText As DrawingText
    Dim objSel As Object
    Dim intI As Integer
    Dim sngPI As Single
    Dim sngRadiant As Single
    Dim sngWinkel As Single
    Dim sngStartwinkel As Single
    Dim sngStartwinkel_Neigung As Single
    Dim sngTextwinkel As Single
    Dim sngAlpha As Single
    Dim sngBuchstabenanzahl As Single
    Dim sngPhi As Single
    Dim intRadius As Integer
    Dim strDurchmesser As String
    Dim strEingabe As String
    Dim strDurchmesser_MsgBox As String
    Dim strStartwinkel As String
    Dim strStartwinkel_MsgBox As String
    Dim strEndwinkel As String
    Dim strEndwinkel_MsgBox As String
    Dim strTexteingabe As String
    Dim strText As String
    Dim intX_Position As Integer
    Dim intY_Position As Integer
    
     '***Fehlerroutine einschalten
     On Error GoTo Fehler

    '***Abfrage nach geöffnetem Dokument
    Set objWindows = CATIA.Windows
    If objWindows.Count = 0 Then
        MsgBox "Es ist kein Dokument geöffnet." & vbNewLine & _
        "Das Makro kann nicht ausgeführt werden und wird beendet.", vbCritical + vbOKOnly, "Kein Dokument offen"
        Exit Sub
    End If

    '***Auslesen der Dokumentart
    Set objDoc = CATIA.ActiveDocument
    strTyp = TypeName(objDoc)
    If strTyp <> "DrawingDocument" Then
        MsgBox "Dieses Dokument ist kein Drawing." & vbNewLine & _
        "Das Makro kann nicht ausgeführt werden und wird beendet.", vbCritical + vbOKOnly, "Falscher Dokumententyp"
        Exit Sub
    End If
    
    '***Abfrage ob der Wert des Durchmessers weiter verarbeitet werden kann
    '***Eingabe in eine Zahl umwandeln
    strDurchmesser = IsNumeric(Me.cmb_Durchmesser.Value)
    If (strDurchmesser = True) And (Me.cmb_Durchmesser.Value <> "0") And Not (strDurchmesser = "") Then
        '***Eingabe in eine positive Zahl umwandeln
        strDurchmesser = Abs(Me.cmb_Durchmesser.Value)
        Me.cmb_Durchmesser.Value = strDurchmesser
    ElseIf Me.cmb_Durchmesser.Value = "" Then
        MsgBox "Eine leere Eingabe kann nicht verwendet werden.", vbCritical & vbOKOnly, "Falsche Eingabe"
        Do
            '***Beschriftungsdurchmesser in InputBox eingeben
            strEingabe = "Beschriftungsdurchmesser"
            strEingabe = InputBox("Geben Sie den Beschriftungsdurchmesser ein.", "Durchmesser der Elemente", strEingabe)
            '***Eingabe in eine Zahl umwandeln
            strDurchmesser_MsgBox = IsNumeric(strEingabe)
            If strEingabe = "" Then
                MsgBox "Eine leere Eingabe kann nicht verwendet werden.", vbCritical & vbOKOnly, "Falsche Eingabe"
            ElseIf (strDurchmesser_MsgBox = True) And (strEingabe = "0") Then
                MsgBox "0 kann nicht als Eingabe verwendet werden.", vbCritical & vbOKOnly, "Falsche Eingabe"
            ElseIf (strDurchmesser_MsgBox = False) And (strEingabe <> "0") Then
                MsgBox "Die Eingabe kann nicht verwendet werden, da es sich um keine Zahl handelt.", vbOKOnly & vbCritical, "Falsche Eingabe"
            End If
        Loop Until (strDurchmesser_MsgBox = True) And (strEingabe <> "0") And Not (strEingabe = "")
        '***Eingabe in eine positive Zahl umwandeln
        strDurchmesser_MsgBox = Abs(strEingabe)
        '***Wert der InputBox an ComboBox übergeben
        Me.cmb_Durchmesser.Value = strDurchmesser_MsgBox
    ElseIf (strDurchmesser = True) And (Me.cmb_Durchmesser.Value = "0") Then
        MsgBox "0 kann nicht als Eingabe verwendet werden.", vbCritical & vbOKOnly, "Falsche Eingabe"
        Do
            '***Beschriftungsdurchmesser in InputBox eingeben
            strEingabe = "Beschriftungsdurchmesser"
            strEingabe = InputBox("Geben Sie den Beschriftungsdurchmesser ein.", "Durchmesser der Elemente", strEingabe)
            '***Eingabe in eine Zahl umwandeln
            strDurchmesser_MsgBox = IsNumeric(strEingabe)
            If strEingabe = "" Then
                MsgBox "Eine leere Eingabe kann nicht verwendet werden.", vbCritical & vbOKOnly, "Falsche Eingabe"
            ElseIf (strDurchmesser_MsgBox = True) And (strEingabe = "0") Then
                MsgBox "0 kann nicht als Eingabe verwendet werden.", vbCritical & vbOKOnly, "Falsche Eingabe"
            ElseIf (strDurchmesser_MsgBox = False) And (strEingabe <> "0") Then
                MsgBox "Die Eingabe kann nicht verwendet werden, da es sich um keine Zahl handelt.", vbCritical & vbOKOnly, "Falsche Eingabe"
            End If
        Loop Until (strDurchmesser_MsgBox = True) And (strEingabe <> "0") And Not (strEingabe = "")
        '***Eingabe in eine positive Zahl umwandeln
        strDurchmesser_MsgBox = Abs(strEingabe)
        '***Wert der InputBox an ComboBox übergeben
        Me.cmb_Durchmesser.Value = strDurchmesser_MsgBox
    ElseIf (strDurchmesser = False) And (Me.cmb_Durchmesser.Value <> "0") Then
        MsgBox "Die Eingabe kann nicht verwendet werden, da es sich um keine Zahl handelt.", vbCritical & vbOKOnly, "Fehler"
        Do
            '***Beschriftungsdurchmesser in InputBox eingeben
            strEingabe = "Beschriftungsdurchmesser"
            strEingabe = InputBox("Geben Sie den Beschriftungsdurchmesser ein.", "Durchmesser der Elemente", strEingabe)
            '***Eingabe in eine Zahl umwandeln
            strDurchmesser_MsgBox = IsNumeric(strEingabe)
            If strEingabe = "" Then
                MsgBox "Eine leere Eingabe kann nicht verwendet werden.", vbCritical & vbOKOnly, "Falsche Eingabe"
            ElseIf (strDurchmesser_MsgBox = True) And (strEingabe = "0") Then
                MsgBox "0 kann nicht als Eingabe verwendet werden.", vbCritical & vbOKOnly, "Falsche Eingabe"
            ElseIf (strDurchmesser_MsgBox = False) And (strEingabe <> "0") Then
                MsgBox "Die Eingabe kann nicht verwendet werden, da es sich um keine Zahl handelt.", vbCritical & vbOKOnly, "Falsche Eingabe"
            End If
        Loop Until (strDurchmesser_MsgBox = True) And (strEingabe <> "0") And Not (strEingabe = "")
        '***Eingabe in eine positive Zahl umwandeln
        strDurchmesser_MsgBox = Abs(strEingabe)
        '***Wert der InputBox an ComboBox übergeben
        Me.cmb_Durchmesser.Value = strDurchmesser_MsgBox
    End If

    '***Abfrage ob der Wert des Startwinkels weiter verarbeitet werden kann
    '***Eingabe in eine Zahl umwandeln
    strStartwinkel = IsNumeric(Me.cmb_Startwinkel.Value)
    If (strStartwinkel = True) And (Me.cmb_Startwinkel.Value <= "360") And Not (strStartwinkel = "") Then
        '***Eingabe in eine positive Zahl umwandeln
        strStartwinkel = Abs(Me.cmb_Startwinkel.Value)
        Me.cmb_Startwinkel.Value = strStartwinkel
    ElseIf Me.cmb_Startwinkel.Value = "" Then
        MsgBox "Eine leere Eingabe kann nicht verwendet werden.", vbCritical & vbOKOnly, "Falsche Eingabe"
        Do
            '***Startwinkel in InputBox eingeben
            strEingabe = "Startwinkel"
            strEingabe = InputBox("Geben Sie den Startwinkel des ersten Buchstabens ein.", "Startwinkel", strEingabe)
            '***Eingabe in eine Zahl umwandeln
            strStartwinkel_MsgBox = IsNumeric(strEingabe)
            If strEingabe = "" Then
                MsgBox "Eine leere Eingabe kann nicht verwendet werden.", vbCritical & vbOKOnly, "Falsche Eingabe"
            ElseIf (strStartwinkel_MsgBox = True) And (strEingabe > "360") Then
                MsgBox "Der Startwinkel des ersten Buchstaben kann nicht größer als 360° sein." & vbNewLine & _
                "Geben Sie einen Winkel zwischen 0° und 360° ein.", vbCritical & vbOKOnly, "Falsche Eingabe"
            ElseIf (strStartwinkel_MsgBox = False) And (strEingabe <> "0") Then
                MsgBox "Die Eingabe kann nicht verwendet werden, da es sich um keine Zahl handelt.", vbOKOnly & vbCritical, "Falsche Eingabe"
            End If
        Loop Until (strStartwinkel_MsgBox = True) And (strEingabe <= "360") And Not (strEingabe = "")
        '***Eingabe in eine positive Zahl umwandeln
        strStartwinkel_MsgBox = Abs(strEingabe)
        '***Wert der InputBox an ComboBox übergeben
        Me.cmb_Startwinkel.Value = strStartwinkel_MsgBox
    ElseIf (strStartwinkel = True) And (Val(Me.cmb_Startwinkel.Value) >= 360) Then
        MsgBox "Der Startwinkel des ersten Buchstaben kann nicht größer als 360° sein." & vbNewLine & _
        "Geben Sie einen Winkel zwischen 0° und 360° ein.", vbCritical & vbOKOnly, "Falsche Eingabe"
        Do
            '***Startwinkel in InputBox eingeben
            strEingabe = "Startwinkel"
            strEingabe = InputBox("Geben Sie den Startwinkel des ersten Buchstabens ein.", "Startwinkel", strEingabe)
            '***Eingabe in eine Zahl umwandeln
            strStartwinkel_MsgBox = IsNumeric(strEingabe)
            If strEingabe = "" Then
                MsgBox "Eine leere Eingabe kann nicht verwendet werden.", vbCritical & vbOKOnly, "Falsche Eingabe"
            ElseIf (strStartwinkel_MsgBox = True) And (strEingabe > "360") Then
                MsgBox "Der Startwinkel des ersten Buchstaben kann nicht größer als 360° sein." & vbNewLine & _
                "Geben Sie einen Winkel zwischen 0° und 360° ein.", vbCritical & vbOKOnly, "Falsche Eingabe"
            ElseIf (strStartwinkel_MsgBox = False) And (strEingabe <> "0") Then
                MsgBox "Die Eingabe kann nicht verwendet werden, da es sich um keine Zahl handelt.", vbCritical & vbOKOnly, "Falsche Eingabe"
            End If
        Loop Until (strStartwinkel_MsgBox = True) And (strEingabe <= "360") And Not (strEingabe = "")
        '***Eingabe in eine positive Zahl umwandeln
        strStartwinkel_MsgBox = Abs(strEingabe)
        '***Wert der InputBox an ComboBox übergeben
        Me.cmb_Startwinkel.Value = strStartwinkel_MsgBox
    ElseIf (strStartwinkel = False) And (Me.cmb_Startwinkel.Value <> "0") Then
        MsgBox "Die Eingabe kann nicht verwendet werden, da es sich um keine Zahl handelt.", vbCritical & vbOKOnly, "Fehler"
        Do
            '***Startwinkel in InputBox eingeben
            strEingabe = "Startwinkel"
            strEingabe = InputBox("Geben Sie den Startwinkel des ersten Buchstabens ein.", "Startwinkel", strEingabe)
            '***Eingabe in eine Zahl umwandeln
            strStartwinkel_MsgBox = IsNumeric(strEingabe)
            If strEingabe = "" Then
                MsgBox "Eine leere Eingabe kann nicht verwendet werden.", vbCritical & vbOKOnly, "Falsche Eingabe"
            ElseIf (strStartwinkel_MsgBox = True) And (strEingabe > "360") Then
                MsgBox "Der Startwinkel des ersten Buchstaben kann nicht größer als 360° sein." & vbNewLine & _
                "Geben Sie einen Winkel zwischen 0° und 360° ein.", vbCritical & vbOKOnly, "Falsche Eingabe"
            ElseIf (strStartwinkel_MsgBox = False) And (strEingabe <> "0") Then
                MsgBox "Die Eingabe kann nicht verwendet werden, da es sich um keine Zahl handelt.", vbCritical & vbOKOnly, "Falsche Eingabe"
            End If
        Loop Until (strStartwinkel_MsgBox = True) And (strEingabe <= "360") And Not (strEingabe = "")
        '***Eingabe in eine positive Zahl umwandeln
        strStartwinkel_MsgBox = Abs(strEingabe)
        '***Wert der InputBox an ComboBox übergeben
        Me.cmb_Startwinkel.Value = strStartwinkel_MsgBox
    End If

    '***Abfrage ob der Wert des Endwinkels weiter verarbeitet werden kann
    '***Eingabe in eine Zahl umwandeln
    strEndwinkel = IsNumeric(Me.cmb_Endwinkel.Value)
    If (strEndwinkel = True) And (Me.cmb_Endwinkel.Value <= "360") And Not (strEndwinkel = "") Then
        '***Eingabe in eine positive Zahl umwandeln
        strEndwinkel = Abs(Me.cmb_Endwinkel.Value)
        Me.cmb_Endwinkel.Value = strEndwinkel
    ElseIf Me.cmb_Endwinkel.Value = "" Then
        MsgBox "Eine leere Eingabe kann nicht verwendet werden.", vbCritical & vbOKOnly, "Falsche Eingabe"
        Do
            '***Endwinkel in InputBox eingeben
            strEingabe = "Endwinkel"
            strEingabe = InputBox("Geben Sie den Endwinkel des letzten Buchstabens ein.", "Endwinkel", strEingabe)
            '***Eingabe in eine Zahl umwandeln
            strEndwinkel_MsgBox = IsNumeric(strEingabe)
            If strEingabe = "" Then
                MsgBox "Eine leere Eingabe kann nicht verwendet werden.", vbCritical & vbOKOnly, "Falsche Eingabe"
            ElseIf (strEndwinkel_MsgBox = True) And (strEingabe > "360") Then
                MsgBox "Der Endwinkel des letzten Buchstabens kann nicht größer als 360° sein." & vbNewLine & _
                "Geben Sie einen Winkel zwischen 0° und 360° ein.", vbCritical & vbOKOnly, "Falsche Eingabe"
            ElseIf (strEndwinkel_MsgBox = False) And (strEingabe <> "0") Then
                MsgBox "Die Eingabe kann nicht verwendet werden, da es sich um keine Zahl handelt.", vbOKOnly & vbCritical, "Falsche Eingabe"
            End If
        Loop Until (strEndwinkel_MsgBox = True) And (strEingabe <= "360") And Not (strEingabe = "")
        '***Eingabe in eine positive Zahl umwandeln
        strEndwinkel_MsgBox = Abs(strEingabe)
        '***Wert der InputBox an ComboBox übergeben
        Me.cmb_Endwinkel.Value = strEndwinkel_MsgBox
    ElseIf (strEndwinkel = True) And (Val(Me.cmb_Endwinkel.Value) >= 360) Then
        MsgBox "Der Endwinkel des letzten Buchstabens kann nicht größer als 360° sein." & vbNewLine & _
        "Geben Sie einen Winkel zwischen 0° und 360° ein.", vbCritical & vbOKOnly, "Falsche Eingabe"
        Do
            '***Endwinkel in InputBox eingeben
            strEingabe = "Endwinkel"
            strEingabe = InputBox("Geben Sie den Endwinkel des letzten Buchstabens ein.", "Endwinkel", strEingabe)
            '***Eingabe in eine Zahl umwandeln
            strEndwinkel_MsgBox = IsNumeric(strEingabe)
            If strEingabe = "" Then
                MsgBox "Eine leere Eingabe kann nicht verwendet werden.", vbCritical & vbOKOnly, "Falsche Eingabe"
            ElseIf (strEndwinkel_MsgBox = True) And (strEingabe > "360") Then
                MsgBox "Der Endwinkel des letzten Buchstabens kann nicht größer als 360° sein." & vbNewLine & _
                "Geben Sie einen Winkel zwischen 0° und 360° ein.", vbCritical & vbOKOnly, "Falsche Eingabe"
            ElseIf (strEndwinkel_MsgBox = False) And (strEingabe <> "0") Then
                MsgBox "Die Eingabe kann nicht verwendet werden, da es sich um keine Zahl handelt.", vbCritical & vbOKOnly, "Falsche Eingabe"
            End If
        Loop Until (strEndwinkel_MsgBox = True) And (strEingabe <= "360") And Not (strEingabe = "")
        '***Eingabe in eine positive Zahl umwandeln
        strEndwinkel_MsgBox = Abs(strEingabe)
        '***Wert der InputBox an ComboBox übergeben
        Me.cmb_Endwinkel.Value = strEndwinkel_MsgBox
    ElseIf (strEndwinkel = False) And (Me.cmb_Endwinkel.Value <> "0") Then
        MsgBox "Die Eingabe kann nicht verwendet werden, da es sich um keine Zahl handelt.", vbCritical & vbOKOnly, "Fehler"
        Do
            '***Endwinkel in InputBox eingeben
            strEingabe = "Endwinkel"
            strEingabe = InputBox("Geben Sie den Endwinkel des letzten Buchstabens ein.", "Endwinkel", strEingabe)
            '***Eingabe in eine Zahl umwandeln
            strEndwinkel_MsgBox = IsNumeric(strEingabe)
            If strEingabe = "" Then
                MsgBox "Eine leere Eingabe kann nicht verwendet werden.", vbCritical & vbOKOnly, "Falsche Eingabe"
            ElseIf (strEndwinkel_MsgBox = True) And (strEingabe > "360") Then
                MsgBox "Der Endwinkel des letzten Buchstabens kann nicht größer als 360° sein." & vbNewLine & _
                "Geben Sie einen Winkel zwischen 0° und 360° ein.", vbCritical & vbOKOnly, "Falsche Eingabe"
            ElseIf (strEndwinkel_MsgBox = False) And (strEingabe <> "0") Then
                MsgBox "Die Eingabe kann nicht verwendet werden, da es sich um keine Zahl handelt.", vbCritical & vbOKOnly, "Falsche Eingabe"
            End If
        Loop Until (strEndwinkel_MsgBox = True) And (strEingabe <= "360") And Not (strEingabe = "")
        '***Eingabe in eine positive Zahl umwandeln
        strEndwinkel_MsgBox = Abs(strEingabe)
        '***Wert der InputBox an ComboBox übergeben
        Me.cmb_Endwinkel.Value = strEndwinkel_MsgBox
    End If
    
    '***Fenster ausblenden
    Me.Hide
    
    Set drwSheets = objDoc.Sheets
    Set drwSheet = drwSheets.ActiveSheet
    Set drwViews = drwSheet.Views
    
    intI = 1
    
    Set objSel = objDoc.Selection
    '***Vorselektion löschen um das Ergebnis nicht zu verfälschen
    objSel.Clear
    
    '***Performanceerhöhung der Suche
    CATIA.HSOSynchronized = False
    '***Element suchen
    objSel.Search "Drafting.View.Name=Textfeld*"
    If objSel.Count > 0 Then
        intI = objSel.Count + 1
    End If
    CATIA.HSOSynchronized = True
    
    objSel.Clear
    
    '***Ansicht mit dem Namen "Textfeld" erzeugen
    Set drwViewneu = drwSheet.Views.Add("Textfeld_" & intI)
    
    '***Ansicht ansprechen
    Set drwView = drwViews.Item("Textfeld_" & intI)
    
    '***Ansicht aktivieren
    drwView.Activate

    '***X Position des Textes
    intX = 100
    '***Y Position des Textes
    intY = 100
    
    If Me.opt_Vollstaendiger_Kreis.Value = True Then
        '***PI berechnen
        sngPI = 4 * Atn(1)
        '***Radiant berechnen
        sngRadiant = sngPI / 180
        '***Startwinkel des ersten Buchstabens aus der ComboBox übernehmen
        sngStartwinkel = Me.cmb_Startwinkel.Value
        '***Endwinkel vom letzten Buchstaben ausgehend vom Startwinkel vom ersten Buchstaben
        sngAlpha = 360
        '***Text aus TextBox übernehmen
        strTexteingabe = Me.txt_Texteingabe.Text + " "
        '***Anzahl der Buchstaben ermitteln
        sngBuchstabenanzahl = Len(strTexteingabe)
        '***Neigungswinkel der Buchstaben berechnen
        sngPhi = sngAlpha / sngBuchstabenanzahl
        '***Buchstabenneigung definieren
        sngStartwinkel_Neigung = sngStartwinkel - 90
        '***Durchmesser aus ComboBox übernehmen
        intRadius = Me.cmb_Durchmesser.Value / 2
        
        intI = 0
        '***Winkel für X und Y Position berechnen
        For sngWinkel = sngStartwinkel * sngRadiant To (sngStartwinkel - sngAlpha) * sngRadiant Step -sngPhi * sngRadiant
            '***einzelnen Buchstaben aus der Texteingabe ausschneiden
            strText = Mid(strTexteingabe, intI + 1, 1)
            '***Winkel des jeweiligen Buchstabens berechnen
            sngTextwinkel = sngStartwinkel_Neigung - intI * sngPhi
            '***X Position des Buchstabens berechnen
            intX_Position = intRadius * Cos(sngWinkel)
            '***Y Position des Buchstabens berechnen
            intY_Position = intRadius * Sin(sngWinkel)
        
            '***einzelnen Buchstaben erstellen; intX und intY definieren den Mittelpunkt des Kreises
            Set drwText = drwView.Texts.Add(strText, intX + intX_Position, intY + intY_Position)
            '***Winkel des jeweiligen Buchstabens
            drwText.Angle = sngTextwinkel
            '***Textspiegelung definieren
            drwText.TextProperties.Mirror = catTextNoFlip
            '***Einheit mm entfernen
            Me.txt_Schriftgroesse.Value = Replace(Me.txt_Schriftgroesse.Value, "mm", "")
            '***Schriftgröße festlegen
            drwText.SetFontSize 0, 0, Me.txt_Schriftgroesse.Value
            '***Schriftart festlegen
            drwText.SetFontName 0, 0, Me.txt_Schriftart.Value
            '***Textausrichtung "Mitte-Mitte" definieren
            drwText.AnchorPosition = catMiddleCenter
            '***Schrifttyp festlegen
            If Me.txt_Schrifttyp.Value = "Bold" Then
                '***Schrifttyp: Fett
                drwText.TextProperties.Bold = True
            ElseIf Me.txt_Schrifttyp.Value = "Italic" Then
                '***Schrifttyp: Kursiv
                drwText.TextProperties.Italic = True
            ElseIf Me.txt_Schrifttyp.Value = "Bold Italic" Then
                '***Schrifttyp: Fett und Kursiv
                drwText.TextProperties.Bold = True
                drwText.TextProperties.Italic = True
            End If
            '***Überstrichen
            If Me.chk_Ueberstrichen.Value = True Then
                drwText.TextProperties.Overline = True
            End If
            '***Unterstrichen
            If Me.chk_Unterstrichen.Value = True Then
                drwText.TextProperties.Underline = True
            End If
            '***Durchgestrichen
            If Me.chk_Durchgestrichen.Value = True Then
                drwText.TextProperties.StrikeThru = True
            End If
            '***Hochgestellt
            If Me.chk_Hochgestellt.Value = True Then
                drwText.TextProperties.Superscript = True
            End If
            '***Tiefgestellt
            If Me.chk_Tiefgestellt.Value = True Then
                drwText.TextProperties.Subscript = True
            End If
    
            '***Element zur Selektion hinzufügen
            objSel.Add drwText
            '***Farbe festlegen
            objSel.VisProperties.SetRealColor intRot, intGruen, intBlau, 1
            
            '***Einheit % entfernen
            Me.txt_Groessenverhaeltnis.Value = Replace(Me.txt_Groessenverhaeltnis.Value, "%", "")
            '***Größenverhältnis festlegen
            drwText.SetParameterOnSubString catCharRatio, 0, 0, Me.txt_Groessenverhaeltnis.Value
            
            '***Einheit % entfernen
            Me.txt_Abstand.Value = Replace(Me.txt_Abstand.Value, "%", "")
            '***Buchstabenabstand festlegen
            drwText.SetParameterOnSubString catCharSpacing, 0, 0, Me.txt_Abstand.Value
            
            intI = intI + 1
        Next
    ElseIf Me.opt_Halbkreis_oben.Value = True Then
        '***PI berechnen
        sngPI = 4 * Atn(1)
        '***Radiant berechnen
        sngRadiant = sngPI / 180
        '***Startwinkel des ersten Buchstabens
        sngStartwinkel = 160
        '***Endwinkel vom letzten Buchstaben ausgehend vom Startwinkel vom ersten Buchstaben
        sngAlpha = 140
        '***Text aus TextBox übernehmen
        strTexteingabe = " " + Me.txt_Texteingabe.Text
        '***Anzahl der Buchstaben ermitteln
        sngBuchstabenanzahl = Len(strTexteingabe)
        '***Neigungswinkel der Buchstaben berechnen
        sngPhi = sngAlpha / sngBuchstabenanzahl
        '***Buchstabenneigung definieren
        sngStartwinkel_Neigung = sngStartwinkel - 90
        '***Durchmesser aus ComboBox übernehmen und Punkt durch Komma ersetzen
        intRadius = Replace(Me.cmb_Durchmesser.Value, ".", ",") / 2
        
        intI = 0
        '***Winkel für X und Y Position berechnen
        For sngWinkel = sngStartwinkel * sngRadiant To (sngStartwinkel - sngAlpha) * sngRadiant Step -sngPhi * sngRadiant
            '***einzelnen Buchstaben aus der Texteingabe ausschneiden
            strText = Mid(strTexteingabe, intI + 1, 1)
            '***Winkel des jeweiligen Buchstabens berechnen
            sngTextwinkel = sngStartwinkel_Neigung - intI * sngPhi
            '***X Position des Buchstabens berechnen
            intX_Position = intRadius * Cos(sngWinkel)
            '***Y Position des Buchstabens berechnen
            intY_Position = intRadius * Sin(sngWinkel)
        
            '***einzelnen Buchstaben erstellen; intX und intY definieren den Mittelpunkt des Kreises
            Set drwText = drwView.Texts.Add(strText, intX + intX_Position, intY + intY_Position)
            '***Winkel des jeweiligen Buchstabens
            drwText.Angle = sngTextwinkel
            '***Textspiegelung definieren
            drwText.TextProperties.Mirror = catTextNoFlip
            '***Einheit mm entfernen
            Me.txt_Schriftgroesse.Value = Replace(Me.txt_Schriftgroesse.Value, "mm", "")
            '***Schriftgröße festlegen
            drwText.SetFontSize 0, 0, Me.txt_Schriftgroesse.Value
            '***Schriftart festlegen
            drwText.SetFontName 0, 0, Me.txt_Schriftart.Value
            '***Textausrichtung "Mitte-Mitte" definieren
            drwText.AnchorPosition = catMiddleCenter
            '***Schrifttyp festlegen
            If Me.txt_Schrifttyp.Value = "Bold" Then
                '***Schrifttyp: Fett
                drwText.TextProperties.Bold = True
            ElseIf Me.txt_Schrifttyp.Value = "Italic" Then
                '***Schrifttyp: Kursiv
                drwText.TextProperties.Italic = True
            ElseIf Me.txt_Schrifttyp.Value = "Bold Italic" Then
                '***Schrifttyp: Fett und Kursiv
                drwText.TextProperties.Bold = True
                drwText.TextProperties.Italic = True
            End If
            '***Überstrichen
            If Me.chk_Ueberstrichen.Value = True Then
                drwText.TextProperties.Overline = True
            End If
            '***Unterstrichen
            If Me.chk_Unterstrichen.Value = True Then
                drwText.TextProperties.Underline = True
            End If
            '***Durchgestrichen
            If Me.chk_Durchgestrichen.Value = True Then
                drwText.TextProperties.StrikeThru = True
            End If
            '***Hochgestellt
            If Me.chk_Hochgestellt.Value = True Then
                drwText.TextProperties.Superscript = True
            End If
            '***Tiefgestellt
            If Me.chk_Tiefgestellt.Value = True Then
                drwText.TextProperties.Subscript = True
            End If
    
            '***Element zur Selektion hinzufügen
            objSel.Add drwText
            '***Farbe festlegen
            objSel.VisProperties.SetRealColor intRot, intGruen, intBlau, 1
            
            '***Einheit % entfernen
            Me.txt_Groessenverhaeltnis.Value = Replace(Me.txt_Groessenverhaeltnis.Value, "%", "")
            '***Größenverhältnis festlegen
            drwText.SetParameterOnSubString catCharRatio, 0, 0, Me.txt_Groessenverhaeltnis.Value
            
            '***Einheit % entfernen
            Me.txt_Abstand.Value = Replace(Me.txt_Abstand.Value, "%", "")
            '***Buchstabenabstand festlegen
            drwText.SetParameterOnSubString catCharSpacing, 0, 0, Me.txt_Abstand.Value
            
            intI = intI + 1
        Next
    ElseIf Me.opt_Halbkreis_unten.Value = True Then
        '***PI berechnen
        sngPI = 4 * Atn(1)
        '***Radiant berechnen
        sngRadiant = sngPI / 180
        '***Startwinkel des ersten Buchstabens
        sngStartwinkel = 200
        '***Endwinkel vom letzten Buchstaben ausgehend vom Startwinkel vom ersten Buchstaben
        sngAlpha = -140
        '***Text aus TextBox übernehmen
        strTexteingabe = " " + Me.txt_Texteingabe.Text
        '***Anzahl der Buchstaben ermitteln
        sngBuchstabenanzahl = Len(strTexteingabe)
        '***Neigungswinkel der Buchstaben berechnen
        sngPhi = sngAlpha / sngBuchstabenanzahl
        '***Buchstabenneigung definieren
        sngStartwinkel_Neigung = sngStartwinkel - 90
        '***Durchmesser aus ComboBox übernehmen und Punkt durch Komma ersetzen
        intRadius = Replace(Me.cmb_Durchmesser.Value, ".", ",") / 2
        
        intI = 0
        '***Winkel für X und Y Position berechnen
        For sngWinkel = sngStartwinkel * sngRadiant To (sngStartwinkel - sngAlpha) * sngRadiant Step -sngPhi * sngRadiant
            '***einzelnen Buchstaben aus der Texteingabe ausschneiden
            strText = Mid(strTexteingabe, intI + 1, 1)
            '***Winkel des jeweiligen Buchstabens berechnen
            sngTextwinkel = sngStartwinkel_Neigung - intI * sngPhi
            '***X Position des Buchstabens berechnen
            intX_Position = intRadius * Cos(sngWinkel)
            '***Y Position des Buchstabens berechnen
            intY_Position = intRadius * Sin(sngWinkel)
        
            '***einzelnen Buchstaben erstellen; intX und intY definieren den Mittelpunkt des Kreises
            Set drwText = drwView.Texts.Add(strText, intX + intX_Position, intY + intY_Position)
            '***Winkel des jeweiligen Buchstabens
            drwText.Angle = sngTextwinkel
            '***Einheit mm entfernen
            Me.txt_Schriftgroesse.Value = Replace(Me.txt_Schriftgroesse.Value, "mm", "")
            '***Schriftgröße festlegen
            drwText.SetFontSize 0, 0, Me.txt_Schriftgroesse.Value
            '***Schriftart festlegen
            drwText.SetFontName 0, 0, Me.txt_Schriftart.Value
            '***Textausrichtung "Mitte-Mitte" definieren
            drwText.AnchorPosition = catMiddleCenter
            '***Schrifttyp festlegen
            If Me.txt_Schrifttyp.Value = "Bold" Then
                '***Schrifttyp: Fett
                drwText.TextProperties.Bold = True
            ElseIf Me.txt_Schrifttyp.Value = "Italic" Then
                '***Schrifttyp: Kursiv
                drwText.TextProperties.Italic = True
            ElseIf Me.txt_Schrifttyp.Value = "Bold Italic" Then
                '***Schrifttyp: Fett und Kursiv
                drwText.TextProperties.Bold = True
                drwText.TextProperties.Italic = True
            End If
            '***Überstrichen
            If Me.chk_Ueberstrichen.Value = True Then
                drwText.TextProperties.Overline = True
            End If
            '***Unterstrichen
            If Me.chk_Unterstrichen.Value = True Then
                drwText.TextProperties.Underline = True
            End If
            '***Durchgestrichen
            If Me.chk_Durchgestrichen.Value = True Then
                drwText.TextProperties.StrikeThru = True
            End If
            '***Hochgestellt
            If Me.chk_Hochgestellt.Value = True Then
                drwText.TextProperties.Superscript = True
            End If
            '***Tiefgestellt
            If Me.chk_Tiefgestellt.Value = True Then
                drwText.TextProperties.Subscript = True
            End If
    
            '***Element zur Selektion hinzufügen
            objSel.Add drwText
            '***Farbe festlegen
            objSel.VisProperties.SetRealColor intRot, intGruen, intBlau, 1
            
            '***Einheit % entfernen
            Me.txt_Groessenverhaeltnis.Value = Replace(Me.txt_Groessenverhaeltnis.Value, "%", "")
            '***Größenverhältnis festlegen
            drwText.SetParameterOnSubString catCharRatio, 0, 0, Me.txt_Groessenverhaeltnis.Value
            
            '***Einheit % entfernen
            Me.txt_Abstand.Value = Replace(Me.txt_Abstand.Value, "%", "")
            '***Buchstabenabstand festlegen
            drwText.SetParameterOnSubString catCharSpacing, 0, 0, Me.txt_Abstand.Value
            
            intI = intI + 1
        Next
    ElseIf Me.opt_Benutzerdefiniert.Value = True Then
        '***PI berechnen
        sngPI = 4 * Atn(1)
        '***Radiant berechnen
        sngRadiant = sngPI / 180
        '***Startwinkel des ersten Buchstabens aus der ComboBox übernehmen
        sngStartwinkel = Me.cmb_Startwinkel.Value  'Startwinkel des ersten Buchstabens
        '***Endwinkel vom letzten Buchstaben ausgehend vom Startwinkel vom ersten Buchstaben
        If Me.chk_Negativer_Endwinkel.Value = True Then
            sngAlpha = Me.cmb_Endwinkel.Value * (-1)
        Else
            sngAlpha = Me.cmb_Endwinkel.Value
        End If
        '***Text aus TextBox übernehmen
        strTexteingabe = Me.txt_Texteingabe.Text
        '***Anzahl der Buchstaben ermitteln
        sngBuchstabenanzahl = Len(strTexteingabe)
        '***Neigungswinkel der Buchstaben berechnen
        sngPhi = sngAlpha / sngBuchstabenanzahl
        '***Buchstabenneigung definieren
        sngStartwinkel_Neigung = sngStartwinkel - 90
        '***Durchmesser aus ComboBox übernehmen und Punkt durch Komma ersetzen
        intRadius = Replace(Me.cmb_Durchmesser.Value, ".", ",") / 2
        
        intI = 0
        '***Winkel für X und Y Position berechnen
        For sngWinkel = sngStartwinkel * sngRadiant To (sngStartwinkel - sngAlpha) * sngRadiant Step -sngPhi * sngRadiant
            '***einzelnen Buchstaben aus der Texteingabe ausschneiden
            strText = Mid(strTexteingabe, intI + 1, 1)
            '***Winkel des jeweiligen Buchstabens berechnen
            sngTextwinkel = sngStartwinkel_Neigung - intI * sngPhi
            '***X Position des Buchstabens berechnen
            intX_Position = intRadius * Cos(sngWinkel)
            '***Y Position des Buchstabens berechnen
            intY_Position = intRadius * Sin(sngWinkel)
        
            '***einzelnen Buchstaben erstellen; intX und intY definieren den Mittelpunkt des Kreises
            Set drwText = drwView.Texts.Add(strText, intX + intX_Position, intY + intY_Position)
            '***Winkel des jeweiligen Buchstabens
            drwText.Angle = sngTextwinkel
            If Me.chk_Negativer_Endwinkel.Value = True Then
                '***Textspiegelung definieren
                drwText.TextProperties.Mirror = catTextHorizontalAndVerticalFlip
            Else
                '***Textspiegelung definieren
                drwText.TextProperties.Mirror = catTextNoFlip
            End If
            '***Einheit mm entfernen
            Me.txt_Schriftgroesse.Value = Replace(Me.txt_Schriftgroesse.Value, "mm", "")
            '***Schriftgröße festlegen
            drwText.SetFontSize 0, 0, Me.txt_Schriftgroesse.Value
            '***Schriftart festlegen
            drwText.SetFontName 0, 0, Me.txt_Schriftart.Value
            '***Textausrichtung "Mitte-Mitte" definieren
            drwText.AnchorPosition = catMiddleCenter
            '***Schrifttyp festlegen
            If Me.txt_Schrifttyp.Value = "Bold" Then
                '***Schrifttyp: Fett
                drwText.TextProperties.Bold = True
            ElseIf Me.txt_Schrifttyp.Value = "Italic" Then
                '***Schrifttyp: Kursiv
                drwText.TextProperties.Italic = True
            ElseIf Me.txt_Schrifttyp.Value = "Bold Italic" Then
                '***Schrifttyp: Fett und Kursiv
                drwText.TextProperties.Bold = True
                drwText.TextProperties.Italic = True
            End If
            '***Überstrichen
            If Me.chk_Ueberstrichen.Value = True Then
                drwText.TextProperties.Overline = True
            End If
            '***Unterstrichen
            If Me.chk_Unterstrichen.Value = True Then
                drwText.TextProperties.Underline = True
            End If
            '***Durchgestrichen
            If Me.chk_Durchgestrichen.Value = True Then
                drwText.TextProperties.StrikeThru = True
            End If
            '***Hochgestellt
            If Me.chk_Hochgestellt.Value = True Then
                drwText.TextProperties.Superscript = True
            End If
            '***Tiefgestellt
            If Me.chk_Tiefgestellt.Value = True Then
                drwText.TextProperties.Subscript = True
            End If
    
            '***Element zur Selektion hinzufügen
            objSel.Add drwText
            '***Farbe festlegen
            objSel.VisProperties.SetRealColor intRot, intGruen, intBlau, 1
            
            '***Einheit % entfernen
            Me.txt_Groessenverhaeltnis.Value = Replace(Me.txt_Groessenverhaeltnis.Value, "%", "")
            '***Größenverhältnis festlegen
            drwText.SetParameterOnSubString catCharRatio, 0, 0, Me.txt_Groessenverhaeltnis.Value
            
            '***Einheit % entfernen
            Me.txt_Abstand.Value = Replace(Me.txt_Abstand.Value, "%", "")
            '***Buchstabenabstand festlegen
            drwText.SetParameterOnSubString catCharSpacing, 0, 0, Me.txt_Abstand.Value
            
            intI = intI + 1
        Next
    Else
        '***Text erstellen
        Set drwText = drwView.Texts.Add(Me.txt_Texteingabe, intX, intY)
        '***Schriftart festlegen
        drwText.SetFontName 0, 0, Me.txt_Schriftart.Value
        '***Einheit mm entfernen
        Me.txt_Schriftgroesse.Value = Replace(Me.txt_Schriftgroesse.Value, "mm", "")
        '***Schriftgröße festlegen
        drwText.SetFontSize 0, 0, Me.txt_Schriftgroesse.Value
    
        '***Überstrichen
        If Me.chk_Ueberstrichen.Value = True Then
            drwText.TextProperties.Overline = True
        End If
        '***Unterstrichen
        If Me.chk_Unterstrichen.Value = True Then
            drwText.TextProperties.Underline = True
        End If
        '***Durchgestrichen
        If Me.chk_Durchgestrichen.Value = True Then
            drwText.TextProperties.StrikeThru = True
        End If
        '***Hochgestellt
        If Me.chk_Hochgestellt.Value = True Then
            drwText.TextProperties.Superscript = True
        End If
        '***Tiefgestellt
        If Me.chk_Tiefgestellt.Value = True Then
            drwText.TextProperties.Subscript = True
        End If
    
        '***Element zur Selektion hinzufügen
        objSel.Add drwText
        '***Farbe festlegen
        objSel.VisProperties.SetRealColor intRot, intGruen, intBlau, 1
    
        If Me.opt_Einzeilig.Value = True Or Me.opt_Mehrzeilig.Value = True Then
            '***Einheit deg entfernen
            Me.txt_Winkel.Value = Replace(Me.txt_Winkel.Value, "deg", "")
            '***Winkel festlegen
            drwText.Angle = Me.txt_Winkel.Value
        End If
    
        '***Einheit % entfernen
        Me.txt_Groessenverhaeltnis.Value = Replace(Me.txt_Groessenverhaeltnis.Value, "%", "")
        '***Größenverhältnis festlegen
        drwText.SetParameterOnSubString catCharRatio, 0, 0, Me.txt_Groessenverhaeltnis.Value
    
        '***Einheit % entfernen
        Me.txt_Abstand.Value = Replace(Me.txt_Abstand.Value, "%", "")
        '***Buchstabenabstand festlegen
        drwText.SetParameterOnSubString catCharSpacing, 0, 0, Me.txt_Abstand.Value
    End If
    
    '***Update
    drwView.GenerativeBehavior.ForceUpdate
    
    '***Meldung an User
    MsgBox "Makro wurde erfolgreich beendet.", vbInformation + vbOKOnly, "Makro erfolgreich beendet"
    
    '***Fenster schließen
    Unload Me
    
Exit Sub

'***Fehlerbehandlung: Ausgabe der Fehlernummer und Fehlerbeschreibung
Fehler:
    MsgBox "Fehlernummer: " & Err.Number & vbNewLine & _
    "Fehlerbeschreibung: " & Err.Description, vbCritical + vbOKOnly, "Fehler"

End Sub

Private Sub lst_Abstand_Click()

    '***Wert der TextBox "Abstand" definieren
    Me.txt_Abstand.Value = Me.lst_Abstand.Value

End Sub

Private Sub lst_Groessenverhaeltnis_Click()

    '***Wert der TextBox "Größenverhältnis" definieren
    Me.txt_Groessenverhaeltnis.Value = Me.lst_Groessenverhaeltnis.Value

End Sub

Private Sub lst_Schriftgroesse_Click()

    '***Wert der TextBox "Schriftgröße" definieren
    Me.txt_Schriftgroesse.Value = Me.lst_Schriftgroesse.Value
    
End Sub

Private Sub lst_Schrifttyp_Click()

    '***Wert der TextBox "Schrifttyp" definieren
    Me.txt_Schrifttyp.Value = Me.lst_Schrifttyp.Value

End Sub

Private Sub lst_Winkel_Click()

    '***Wert der TextBox "Winkel" definieren
    Me.txt_Winkel.Value = Me.lst_Winkel.Value

End Sub

Private Sub lst_Schriftart_Change()

    If Me.lst_Schriftart.Value = "Monospac821 BT" Then
        Me.txt_Schriftart.Value = "Monospac821 BT"
        '***Bilder aus und einblenden
        Me.img_Monospac821.Visible = True
        Me.img_Courier10.Visible = False
        Me.img_Dutch801.Visible = False
        Me.img_Arial.Visible = False
        Me.img_Arial_Black.Visible = False
        Me.img_Calibri.Visible = False
        Me.img_Cambria.Visible = False
        Me.img_Times_New_Roman.Visible = False
        Me.img_Franklin_Gothic_Demi.Visible = False
        Me.img_Stencil.Visible = False
        Me.img_Castellar.Visible = False
        Me.img_Old_English_Text_MT.Visible = False
        Me.img_Blackadder_ITC.Visible = False
    ElseIf Me.lst_Schriftart.Value = "Courier10 BT" Then
        Me.txt_Schriftart.Value = "Courier10 BT"
        '***Bilder aus und einblenden
        Me.img_Monospac821.Visible = False
        Me.img_Courier10.Visible = True
        Me.img_Dutch801.Visible = False
        Me.img_Arial.Visible = False
        Me.img_Arial_Black.Visible = False
        Me.img_Calibri.Visible = False
        Me.img_Cambria.Visible = False
        Me.img_Times_New_Roman.Visible = False
        Me.img_Franklin_Gothic_Demi.Visible = False
        Me.img_Stencil.Visible = False
        Me.img_Castellar.Visible = False
        Me.img_Old_English_Text_MT.Visible = False
        Me.img_Blackadder_ITC.Visible = False
    ElseIf Me.lst_Schriftart.Value = "Dutch801 Rm BT" Then
        Me.txt_Schriftart.Value = "Dutch801 Rm BT"
        '***Bilder aus und einblenden
        Me.img_Monospac821.Visible = False
        Me.img_Courier10.Visible = False
        Me.img_Dutch801.Visible = True
        Me.img_Arial.Visible = False
        Me.img_Arial_Black.Visible = False
        Me.img_Calibri.Visible = False
        Me.img_Cambria.Visible = False
        Me.img_Times_New_Roman.Visible = False
        Me.img_Franklin_Gothic_Demi.Visible = False
        Me.img_Stencil.Visible = False
        Me.img_Castellar.Visible = False
        Me.img_Old_English_Text_MT.Visible = False
        Me.img_Blackadder_ITC.Visible = False
    ElseIf Me.lst_Schriftart.Value = "Arial (TrueType)" Then
        Me.txt_Schriftart.Value = "Arial (TrueType)"
        '***Bilder aus und einblenden
        Me.img_Monospac821.Visible = False
        Me.img_Courier10.Visible = False
        Me.img_Dutch801.Visible = False
        Me.img_Arial.Visible = True
        Me.img_Arial_Black.Visible = False
        Me.img_Calibri.Visible = False
        Me.img_Cambria.Visible = False
        Me.img_Times_New_Roman.Visible = False
        Me.img_Franklin_Gothic_Demi.Visible = False
        Me.img_Stencil.Visible = False
        Me.img_Castellar.Visible = False
        Me.img_Old_English_Text_MT.Visible = False
        Me.img_Blackadder_ITC.Visible = False
    ElseIf Me.lst_Schriftart.Value = "Arial Black (TrueType)" Then
        Me.txt_Schriftart.Value = "Arial Black (TrueType)"
        '***Bilder aus und einblenden
        Me.img_Monospac821.Visible = False
        Me.img_Courier10.Visible = False
        Me.img_Dutch801.Visible = False
        Me.img_Arial.Visible = False
        Me.img_Arial_Black.Visible = True
        Me.img_Calibri.Visible = False
        Me.img_Cambria.Visible = False
        Me.img_Times_New_Roman.Visible = False
        Me.img_Franklin_Gothic_Demi.Visible = False
        Me.img_Stencil.Visible = False
        Me.img_Castellar.Visible = False
        Me.img_Old_English_Text_MT.Visible = False
        Me.img_Blackadder_ITC.Visible = False
    ElseIf Me.lst_Schriftart.Value = "Calibri (TrueType)" Then
        Me.txt_Schriftart.Value = "Calibri (TrueType)"
        '***Bilder aus und einblenden
        Me.img_Monospac821.Visible = False
        Me.img_Courier10.Visible = False
        Me.img_Dutch801.Visible = False
        Me.img_Arial.Visible = False
        Me.img_Arial_Black.Visible = False
        Me.img_Calibri.Visible = True
        Me.img_Cambria.Visible = False
        Me.img_Times_New_Roman.Visible = False
        Me.img_Franklin_Gothic_Demi.Visible = False
        Me.img_Stencil.Visible = False
        Me.img_Castellar.Visible = False
        Me.img_Old_English_Text_MT.Visible = False
        Me.img_Blackadder_ITC.Visible = False
    ElseIf Me.lst_Schriftart.Value = "Cambria (TrueType)" Then
        Me.txt_Schriftart.Value = "Cambria (TrueType)"
        '***Bilder aus und einblenden
        Me.img_Monospac821.Visible = False
        Me.img_Courier10.Visible = False
        Me.img_Dutch801.Visible = False
        Me.img_Arial.Visible = False
        Me.img_Arial_Black.Visible = False
        Me.img_Calibri.Visible = False
        Me.img_Cambria.Visible = True
        Me.img_Times_New_Roman.Visible = False
        Me.img_Franklin_Gothic_Demi.Visible = False
        Me.img_Stencil.Visible = False
        Me.img_Castellar.Visible = False
        Me.img_Old_English_Text_MT.Visible = False
        Me.img_Blackadder_ITC.Visible = False
    ElseIf Me.lst_Schriftart.Value = "Times New Roman (TrueType)" Then
        Me.txt_Schriftart.Value = "Times New Roman (TrueType)"
        '***Bilder aus und einblenden
        Me.img_Monospac821.Visible = False
        Me.img_Courier10.Visible = False
        Me.img_Dutch801.Visible = False
        Me.img_Arial.Visible = False
        Me.img_Arial_Black.Visible = False
        Me.img_Calibri.Visible = False
        Me.img_Cambria.Visible = False
        Me.img_Times_New_Roman.Visible = True
        Me.img_Franklin_Gothic_Demi.Visible = False
        Me.img_Stencil.Visible = False
        Me.img_Castellar.Visible = False
        Me.img_Old_English_Text_MT.Visible = False
        Me.img_Blackadder_ITC.Visible = False
    ElseIf Me.lst_Schriftart.Value = "Franklin Gothic Demi (TrueType)" Then
        Me.txt_Schriftart.Value = "Franklin Gothic Demi (TrueType)"
        '***Bilder aus und einblenden
        Me.img_Monospac821.Visible = False
        Me.img_Courier10.Visible = False
        Me.img_Dutch801.Visible = False
        Me.img_Arial.Visible = False
        Me.img_Arial_Black.Visible = False
        Me.img_Calibri.Visible = False
        Me.img_Cambria.Visible = False
        Me.img_Times_New_Roman.Visible = False
        Me.img_Franklin_Gothic_Demi.Visible = True
        Me.img_Stencil.Visible = False
        Me.img_Castellar.Visible = False
        Me.img_Old_English_Text_MT.Visible = False
        Me.img_Blackadder_ITC.Visible = False
    ElseIf Me.lst_Schriftart.Value = "Stencil (TrueType)" Then
        Me.txt_Schriftart.Value = "Stencil (TrueType)"
        '***Bilder aus und einblenden
        Me.img_Monospac821.Visible = False
        Me.img_Courier10.Visible = False
        Me.img_Dutch801.Visible = False
        Me.img_Arial.Visible = False
        Me.img_Arial_Black.Visible = False
        Me.img_Calibri.Visible = False
        Me.img_Cambria.Visible = False
        Me.img_Times_New_Roman.Visible = False
        Me.img_Franklin_Gothic_Demi.Visible = False
        Me.img_Stencil.Visible = True
        Me.img_Castellar.Visible = False
        Me.img_Old_English_Text_MT.Visible = False
        Me.img_Blackadder_ITC.Visible = False
    ElseIf Me.lst_Schriftart.Value = "Castellar (TrueType)" Then
        Me.txt_Schriftart.Value = "Castellar (TrueType)"
        '***Bilder aus und einblenden
        Me.img_Monospac821.Visible = False
        Me.img_Courier10.Visible = False
        Me.img_Dutch801.Visible = False
        Me.img_Arial.Visible = False
        Me.img_Arial_Black.Visible = False
        Me.img_Calibri.Visible = False
        Me.img_Cambria.Visible = False
        Me.img_Times_New_Roman.Visible = False
        Me.img_Franklin_Gothic_Demi.Visible = False
        Me.img_Stencil.Visible = False
        Me.img_Castellar.Visible = True
        Me.img_Old_English_Text_MT.Visible = False
        Me.img_Blackadder_ITC.Visible = False
    ElseIf Me.lst_Schriftart.Value = "Old English Text MT (TrueType)" Then
        Me.txt_Schriftart.Value = "Old English Text MT (TrueType)"
        '***Bilder aus und einblenden
        Me.img_Monospac821.Visible = False
        Me.img_Courier10.Visible = False
        Me.img_Dutch801.Visible = False
        Me.img_Arial.Visible = False
        Me.img_Arial_Black.Visible = False
        Me.img_Calibri.Visible = False
        Me.img_Cambria.Visible = False
        Me.img_Times_New_Roman.Visible = False
        Me.img_Franklin_Gothic_Demi.Visible = False
        Me.img_Stencil.Visible = False
        Me.img_Castellar.Visible = False
        Me.img_Old_English_Text_MT.Visible = True
        Me.img_Blackadder_ITC.Visible = False
    ElseIf Me.lst_Schriftart.Value = "Blackadder ITC (TrueType)" Then
        Me.txt_Schriftart.Value = "Blackadder ITC (TrueType)"
        '***Bilder aus und einblenden
        Me.img_Monospac821.Visible = False
        Me.img_Courier10.Visible = False
        Me.img_Dutch801.Visible = False
        Me.img_Arial.Visible = False
        Me.img_Arial_Black.Visible = False
        Me.img_Calibri.Visible = False
        Me.img_Cambria.Visible = False
        Me.img_Times_New_Roman.Visible = False
        Me.img_Franklin_Gothic_Demi.Visible = False
        Me.img_Stencil.Visible = False
        Me.img_Castellar.Visible = False
        Me.img_Old_English_Text_MT.Visible = False
        Me.img_Blackadder_ITC.Visible = True
    End If

End Sub

Private Sub opt_Benutzerdefiniert_Click()

    '***MultiLine im Textfeld Deaktivieren
    Me.txt_Texteingabe.MultiLine = False

    '***Labels anzeigen, ausblenden und ausgrauen
    Me.lbl_Durchmesser.Enabled = True
    Me.lbl_Startwinkel.Enabled = True
    Me.lbl_Endwinkel.Enabled = True
    Me.lbl_Winkel.Enabled = False
    
    '***Comboboxen anzeigen, ausblenden und ausgrauen
    Me.cmb_Durchmesser.Enabled = True
    Me.cmb_Startwinkel.Enabled = True
    Me.cmb_Endwinkel.Enabled = True
    Me.cmd_Text_erstellen.Enabled = True
    
    '***Checkboxen anzeigen, ausblenden und ausgrauen
    Me.chk_Negativer_Endwinkel.Enabled = True
    Me.chk_Negativer_Endwinkel.Value = False
    
    '***Textbox anzeigen, ausblenden und ausgrauen
    Me.txt_Winkel.Enabled = False
    
    '***Listbox anzeigen, ausblenden und ausgrauen
    Me.lst_Winkel.Enabled = False

End Sub

Private Sub opt_Einzeilig_Click()

    '***MultiLine im Textfeld Deaktivieren
    Me.txt_Texteingabe.MultiLine = False

    '***Labels anzeigen, ausblenden und ausgrauen
    Me.lbl_Durchmesser.Enabled = False
    Me.lbl_Startwinkel.Enabled = False
    Me.lbl_Endwinkel.Enabled = False
    Me.lbl_Winkel.Enabled = True
    
    '***Comboboxen anzeigen, ausblenden und ausgrauen
    Me.cmb_Durchmesser.Enabled = False
    Me.cmb_Startwinkel.Enabled = False
    Me.cmb_Endwinkel.Enabled = False
    Me.cmd_Text_erstellen.Enabled = True
    
    '***Checkboxen anzeigen, ausblenden und ausgrauen
    Me.chk_Negativer_Endwinkel.Enabled = False
    Me.chk_Negativer_Endwinkel.Value = False
    
    '***Textbox anzeigen, ausblenden und ausgrauen
    Me.txt_Winkel.Enabled = True
    
    '***Listbox anzeigen, ausblenden und ausgrauen
    Me.lst_Winkel.Enabled = True

End Sub

Private Sub opt_Halbkreis_oben_Click()

    '***MultiLine im Textfeld Deaktivieren
    Me.txt_Texteingabe.MultiLine = False

    '***Labels anzeigen, ausblenden und ausgrauen
    Me.lbl_Durchmesser.Enabled = True
    Me.lbl_Startwinkel.Enabled = False
    Me.lbl_Endwinkel.Enabled = False
    Me.lbl_Winkel.Enabled = False
    
    '***Comboboxen anzeigen, ausblenden und ausgrauen
    Me.cmb_Durchmesser.Enabled = True
    Me.cmb_Startwinkel.Enabled = False
    Me.cmb_Endwinkel.Enabled = False
    Me.cmd_Text_erstellen.Enabled = True
    
    '***Checkboxen anzeigen, ausblenden und ausgrauen
    Me.chk_Negativer_Endwinkel.Enabled = False
    Me.chk_Negativer_Endwinkel.Value = False
    
    '***Textbox anzeigen, ausblenden und ausgrauen
    Me.txt_Winkel.Enabled = False
    
    '***Listbox anzeigen, ausblenden und ausgrauen
    Me.lst_Winkel.Enabled = False

End Sub

Private Sub opt_Halbkreis_unten_Click()

    '***MultiLine im Textfeld Deaktivieren
    Me.txt_Texteingabe.MultiLine = False

    '***Labels anzeigen, ausblenden und ausgrauen
    Me.lbl_Durchmesser.Enabled = True
    Me.lbl_Startwinkel.Enabled = False
    Me.lbl_Endwinkel.Enabled = False
    Me.lbl_Winkel.Enabled = False
    
    '***Comboboxen anzeigen, ausblenden und ausgrauen
    Me.cmb_Durchmesser.Enabled = True
    Me.cmb_Startwinkel.Enabled = False
    Me.cmb_Endwinkel.Enabled = False
    Me.cmd_Text_erstellen.Enabled = True
    
    '***Checkboxen anzeigen, ausblenden und ausgrauen
    Me.chk_Negativer_Endwinkel.Enabled = False
    Me.chk_Negativer_Endwinkel.Value = False
    
    '***Textbox anzeigen, ausblenden und ausgrauen
    Me.txt_Winkel.Enabled = False
    
    '***Listbox anzeigen, ausblenden und ausgrauen
    Me.lst_Winkel.Enabled = False

End Sub

Private Sub opt_Mehrzeilig_Click()

    '***MultiLine im Textfeld aktivieren
    Me.txt_Texteingabe.MultiLine = True
    
    '***Labels anzeigen, ausblenden und ausgrauen
    Me.lbl_Durchmesser.Enabled = False
    Me.lbl_Startwinkel.Enabled = False
    Me.lbl_Endwinkel.Enabled = False
    Me.lbl_Winkel.Enabled = True
    
    '***Comboboxen anzeigen, ausblenden und ausgrauen
    Me.cmb_Durchmesser.Enabled = False
    Me.cmb_Startwinkel.Enabled = False
    Me.cmb_Endwinkel.Enabled = False
    Me.cmd_Text_erstellen.Enabled = True
    
    '***Checkboxen anzeigen, ausblenden und ausgrauen
    Me.chk_Negativer_Endwinkel.Enabled = False
    Me.chk_Negativer_Endwinkel.Value = False
    
    '***Textbox anzeigen, ausblenden und ausgrauen
    Me.txt_Winkel.Enabled = True
    
    '***Listbox anzeigen, ausblenden und ausgrauen
    Me.lst_Winkel.Enabled = True

End Sub

Private Sub opt_Vollstaendiger_Kreis_Click()

    '***MultiLine im Textfeld Deaktivieren
    Me.txt_Texteingabe.MultiLine = False

    '***Labels anzeigen, ausblenden und ausgrauen
    Me.lbl_Durchmesser.Enabled = True
    Me.lbl_Startwinkel.Enabled = True
    Me.lbl_Endwinkel.Enabled = False
    Me.lbl_Winkel.Enabled = False
    
    '***Comboboxen anzeigen, ausblenden und ausgrauen
    Me.cmb_Durchmesser.Enabled = True
    Me.cmb_Endwinkel.Enabled = False
    Me.cmd_Text_erstellen.Enabled = True
    
    '***Checkboxen anzeigen, ausblenden und ausgrauen
    Me.chk_Negativer_Endwinkel.Enabled = False
    Me.chk_Negativer_Endwinkel.Value = False
    
    '***Textbox ausgrauen
    Me.txt_Winkel.Enabled = False
    
    '***Listbox ausgrauen
    Me.lst_Winkel.Enabled = False

End Sub

Private Sub UserForm_Initialize()

    '***ComboBox "Color" Initialwert festlegen
    Me.cmb_Color.Value = "Schwarz"

    '***ComboBox "Color" mit Werten füllen
    Me.cmb_Color.AddItem ("Schwarz")
    Me.cmb_Color.AddItem ("Rot")
    Me.cmb_Color.AddItem ("Grün")
    Me.cmb_Color.AddItem ("Blau")
    Me.cmb_Color.AddItem ("Gelb")
    Me.cmb_Color.AddItem ("Purpur")
    Me.cmb_Color.AddItem ("Blaugrün")
    Me.cmb_Color.AddItem ("Hellrot")
    Me.cmb_Color.AddItem ("Hellgrün")
    Me.cmb_Color.AddItem ("Hellblau")
    Me.cmb_Color.AddItem ("Hellgelb")
    Me.cmb_Color.AddItem ("Hellpurpur")
    Me.cmb_Color.AddItem ("Hellblaugrün")
    Me.cmb_Color.AddItem ("Pastellrot")
    Me.cmb_Color.AddItem ("Pastellgrün")
    Me.cmb_Color.AddItem ("Pastellblau")
    Me.cmb_Color.AddItem ("Chreme")
    Me.cmb_Color.AddItem ("Rosa")
    Me.cmb_Color.AddItem ("Babyblau")
    
    '***Listbox "Schriftgroesse" Initialwert festlegen
    Me.txt_Schriftgroesse.Value = "2,50 mm"
    
    '***ListBox "Schriftgroesse" mit Werten füllen
    Me.lst_Schriftgroesse.AddItem ("2,50 mm")
    Me.lst_Schriftgroesse.AddItem ("3,50 mm")
    Me.lst_Schriftgroesse.AddItem ("5,0 mm")
    Me.lst_Schriftgroesse.AddItem ("7,0 mm")
    Me.lst_Schriftgroesse.AddItem ("10,0 mm")
    Me.lst_Schriftgroesse.AddItem ("12,0 mm")
    Me.lst_Schriftgroesse.AddItem ("14,0 mm")
    Me.lst_Schriftgroesse.AddItem ("20,0 mm")
    Me.lst_Schriftgroesse.AddItem ("24,0 mm")
    
    '***Listbox "Schriftyp" Initialwert festlegen
    Me.txt_Schrifttyp.Value = "Regular"
    
    '***ListBox "Schriftyp" mit Werten füllen
    Me.lst_Schrifttyp.AddItem ("Regular")
    Me.lst_Schrifttyp.AddItem ("Italic")
    Me.lst_Schrifttyp.AddItem ("Bold")
    Me.lst_Schrifttyp.AddItem ("Bold Italic")
    
    '***Listbox "Schriftart" Initialwert festlegen
    Me.txt_Schriftart.Value = "Monospac821 BT"
    
    '***ListBox "Schriftart" mit Werten füllen
    Me.lst_Schriftart.AddItem ("Monospac821 BT")
    Me.lst_Schriftart.AddItem ("Courier10 BT")
    Me.lst_Schriftart.AddItem ("Dutch801 Rm BT")
    Me.lst_Schriftart.AddItem ("Arial (TrueType)")
    Me.lst_Schriftart.AddItem ("Arial Black (TrueType)")
    Me.lst_Schriftart.AddItem ("Calibri (TrueType)")
    Me.lst_Schriftart.AddItem ("Cambria (TrueType)")
    Me.lst_Schriftart.AddItem ("Times New Roman (TrueType)")
    Me.lst_Schriftart.AddItem ("Franklin Gothic Demi (TrueType)")
    Me.lst_Schriftart.AddItem ("Stencil (TrueType)")
    Me.lst_Schriftart.AddItem ("Castellar (TrueType)")
    Me.lst_Schriftart.AddItem ("Old English Text MT (TrueType)")
    Me.lst_Schriftart.AddItem ("Blackadder ITC (TrueType)")
    
    '***Bild einblenden
    Me.img_Monospac821.Visible = True
    
    '***CheckBoxen initialisieren
    Me.chk_Hochgestellt.Value = False
    Me.chk_Tiefgestellt.Value = False
    
    '***TextBox "Texteingabe" Initialwert festlegen
    Me.txt_Texteingabe.Text = "Geben Sie hier den Text ein."
    
    '***TextBox "Winkel" Initialwert festlegen
    Me.txt_Winkel.Value = "0 deg"
    
    '***ListBox "Winkel" mit Werten füllen
    Me.lst_Winkel.AddItem ("10 deg")
    Me.lst_Winkel.AddItem ("20 deg")
    Me.lst_Winkel.AddItem ("30 deg")
    Me.lst_Winkel.AddItem ("40 deg")
    Me.lst_Winkel.AddItem ("45 deg")
    Me.lst_Winkel.AddItem ("50 deg")
    Me.lst_Winkel.AddItem ("60 deg")
    Me.lst_Winkel.AddItem ("70 deg")
    Me.lst_Winkel.AddItem ("80 deg")
    Me.lst_Winkel.AddItem ("90 deg")
    Me.lst_Winkel.AddItem ("100 deg")
    Me.lst_Winkel.AddItem ("110 deg")
    Me.lst_Winkel.AddItem ("120 deg")
    Me.lst_Winkel.AddItem ("130 deg")
    Me.lst_Winkel.AddItem ("140 deg")
    Me.lst_Winkel.AddItem ("150 deg")
    Me.lst_Winkel.AddItem ("160 deg")
    Me.lst_Winkel.AddItem ("170 deg")
    Me.lst_Winkel.AddItem ("180 deg")
    Me.lst_Winkel.AddItem ("190 deg")
    Me.lst_Winkel.AddItem ("200 deg")
    Me.lst_Winkel.AddItem ("210 deg")
    Me.lst_Winkel.AddItem ("220 deg")
    Me.lst_Winkel.AddItem ("230 deg")
    Me.lst_Winkel.AddItem ("240 deg")
    Me.lst_Winkel.AddItem ("250 deg")
    Me.lst_Winkel.AddItem ("260 deg")
    Me.lst_Winkel.AddItem ("270 deg")
    Me.lst_Winkel.AddItem ("280 deg")
    Me.lst_Winkel.AddItem ("290 deg")
    Me.lst_Winkel.AddItem ("300 deg")
    Me.lst_Winkel.AddItem ("310 deg")
    Me.lst_Winkel.AddItem ("320 deg")
    Me.lst_Winkel.AddItem ("330 deg")
    Me.lst_Winkel.AddItem ("340 deg")
    Me.lst_Winkel.AddItem ("350 deg")
    
    '***TextBox "Größenverhältnis" Initialwert festlegen
    Me.txt_Groessenverhaeltnis.Value = "100 %"
    
    '***ListBox "Winkel" mit Werten füllen
    Me.lst_Groessenverhaeltnis.AddItem ("50 %")
    Me.lst_Groessenverhaeltnis.AddItem ("55 %")
    Me.lst_Groessenverhaeltnis.AddItem ("60 %")
    Me.lst_Groessenverhaeltnis.AddItem ("65 %")
    Me.lst_Groessenverhaeltnis.AddItem ("68 %")
    Me.lst_Groessenverhaeltnis.AddItem ("70 %")
    Me.lst_Groessenverhaeltnis.AddItem ("75 %")
    Me.lst_Groessenverhaeltnis.AddItem ("80 %")
    Me.lst_Groessenverhaeltnis.AddItem ("85 %")
    Me.lst_Groessenverhaeltnis.AddItem ("90 %")
    Me.lst_Groessenverhaeltnis.AddItem ("95 %")
    Me.lst_Groessenverhaeltnis.AddItem ("100 %")
    Me.lst_Groessenverhaeltnis.AddItem ("105 %")
    Me.lst_Groessenverhaeltnis.AddItem ("110 %")
    Me.lst_Groessenverhaeltnis.AddItem ("115 %")
    Me.lst_Groessenverhaeltnis.AddItem ("120 %")
    Me.lst_Groessenverhaeltnis.AddItem ("125 %")
    Me.lst_Groessenverhaeltnis.AddItem ("130 %")
    Me.lst_Groessenverhaeltnis.AddItem ("135 %")
    Me.lst_Groessenverhaeltnis.AddItem ("140 %")
    Me.lst_Groessenverhaeltnis.AddItem ("145 %")
    Me.lst_Groessenverhaeltnis.AddItem ("150 %")
    Me.lst_Groessenverhaeltnis.AddItem ("155 %")
    Me.lst_Groessenverhaeltnis.AddItem ("160 %")
    
    '***TextBox "Abstand" Initialwert festlegen
    Me.txt_Abstand.Value = "0 %"
    
    '***ListBox "Winkel" mit Werten füllen
    Me.lst_Abstand.AddItem ("10 %")
    Me.lst_Abstand.AddItem ("20 %")
    Me.lst_Abstand.AddItem ("30 %")
    Me.lst_Abstand.AddItem ("40 %")
    Me.lst_Abstand.AddItem ("50 %")
    Me.lst_Abstand.AddItem ("60 %")
    Me.lst_Abstand.AddItem ("70 %")
    Me.lst_Abstand.AddItem ("80 %")
    Me.lst_Abstand.AddItem ("90 %")
    Me.lst_Abstand.AddItem ("100 %")
    
    '***OptionBox "Einzeilig" initialisieren
    Me.opt_Einzeilig.Value = True
    
    '***ComboBox "Durchmesser" Initialwert festlegen
    Me.cmb_Durchmesser.Value = "40"
    
    '***ComboBox "Durchmesser" mit Werten füllen
    Me.cmb_Durchmesser.AddItem ("5")
    Me.cmb_Durchmesser.AddItem ("10")
    Me.cmb_Durchmesser.AddItem ("15")
    Me.cmb_Durchmesser.AddItem ("20")
    Me.cmb_Durchmesser.AddItem ("25")
    Me.cmb_Durchmesser.AddItem ("30")
    Me.cmb_Durchmesser.AddItem ("35")
    Me.cmb_Durchmesser.AddItem ("40")
    Me.cmb_Durchmesser.AddItem ("45")
    Me.cmb_Durchmesser.AddItem ("50")
    Me.cmb_Durchmesser.AddItem ("55")
    Me.cmb_Durchmesser.AddItem ("60")
    Me.cmb_Durchmesser.AddItem ("65")
    Me.cmb_Durchmesser.AddItem ("70")
    Me.cmb_Durchmesser.AddItem ("75")
    Me.cmb_Durchmesser.AddItem ("80")
    Me.cmb_Durchmesser.AddItem ("85")
    Me.cmb_Durchmesser.AddItem ("90")
    Me.cmb_Durchmesser.AddItem ("95")
    Me.cmb_Durchmesser.AddItem ("100")
    Me.cmb_Durchmesser.AddItem ("110")
    Me.cmb_Durchmesser.AddItem ("120")
    Me.cmb_Durchmesser.AddItem ("130")
    Me.cmb_Durchmesser.AddItem ("140")
    Me.cmb_Durchmesser.AddItem ("150")
    
    '***ComboBox "Startwinkel" Initialwert festlegen
    Me.cmb_Startwinkel.Value = "90"
    
    '***ComboBox "Startwinkel" mit Werten füllen
    Me.cmb_Startwinkel.AddItem ("0")
    Me.cmb_Startwinkel.AddItem ("45")
    Me.cmb_Startwinkel.AddItem ("90")
    Me.cmb_Startwinkel.AddItem ("135")
    Me.cmb_Startwinkel.AddItem ("180")
    Me.cmb_Startwinkel.AddItem ("225")
    Me.cmb_Startwinkel.AddItem ("270")
    Me.cmb_Startwinkel.AddItem ("315")
    
    '***ComboBox "Endwinkel" Initialwert festlegen
    Me.cmb_Endwinkel.Value = "140"
    
    '***ComboBox "Endwinkel" mit Werten füllen
    Me.cmb_Endwinkel.AddItem ("10")
    Me.cmb_Endwinkel.AddItem ("20")
    Me.cmb_Endwinkel.AddItem ("30")
    Me.cmb_Endwinkel.AddItem ("40")
    Me.cmb_Endwinkel.AddItem ("50")
    Me.cmb_Endwinkel.AddItem ("60")
    Me.cmb_Endwinkel.AddItem ("70")
    Me.cmb_Endwinkel.AddItem ("80")
    Me.cmb_Endwinkel.AddItem ("90")
    Me.cmb_Endwinkel.AddItem ("100")
    Me.cmb_Endwinkel.AddItem ("110")
    Me.cmb_Endwinkel.AddItem ("120")
    Me.cmb_Endwinkel.AddItem ("130")
    Me.cmb_Endwinkel.AddItem ("140")
    Me.cmb_Endwinkel.AddItem ("150")
    Me.cmb_Endwinkel.AddItem ("160")
    Me.cmb_Endwinkel.AddItem ("170")
    Me.cmb_Endwinkel.AddItem ("180")
    Me.cmb_Endwinkel.AddItem ("190")
    Me.cmb_Endwinkel.AddItem ("200")
    Me.cmb_Endwinkel.AddItem ("210")
    Me.cmb_Endwinkel.AddItem ("220")
    Me.cmb_Endwinkel.AddItem ("230")
    Me.cmb_Endwinkel.AddItem ("240")
    Me.cmb_Endwinkel.AddItem ("250")
    Me.cmb_Endwinkel.AddItem ("260")
    Me.cmb_Endwinkel.AddItem ("270")
    Me.cmb_Endwinkel.AddItem ("280")
    Me.cmb_Endwinkel.AddItem ("290")
    Me.cmb_Endwinkel.AddItem ("300")
    Me.cmb_Endwinkel.AddItem ("310")
    Me.cmb_Endwinkel.AddItem ("320")
    Me.cmb_Endwinkel.AddItem ("330")
    Me.cmb_Endwinkel.AddItem ("340")
    Me.cmb_Endwinkel.AddItem ("350")
    
End Sub
