VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Create_Drawingtext 
   Caption         =   "Drawingtext erstellen"
   ClientHeight    =   9960
   ClientLeft      =   45
   ClientTop       =   375
   ClientWidth     =   6975
   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_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
    
     On Error GoTo Fehler

    '***Fenster ausblenden
    Me.Hide

    '***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
    
    Set drwSheets = objDoc.Sheets
    Set drwSheet = drwSheets.ActiveSheet
    Set drwViews = drwSheet.Views
    
    intI = 1
    
    Set objSel = objDoc.Selection
    '***Vorselektion löschen um das Ergebniss 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
    
    '***Text erstellen
    Set drwText = drwView.Texts.Add(Me.txt_Texteingabe, intX, intY)
    
    '***Schriftart festlegen
    drwText.SetFontName 0, 0, Me.txt_Schriftart.Value
    
    '***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
    
    '***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
    
    '***Einheit deg entfernen
    Me.txt_Winkel.Value = Replace(Me.txt_Winkel.Value, "deg", "")
    '***Winkel festlegen
    drwText.Angle = Me.txt_Winkel.Value
    
    '***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
    
    '***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 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 ("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 %")
    
End Sub