Private Sub cmdErstellen_Click()
    If txtName.Text <> "" Then
        neu = neu + 1
        NachUnten = NachUnten + 1500
        Load frmÜbersicht.Frame1(neu)
        frmÜbersicht.Frame1(neu).Caption = txtName.Text
        frmÜbersicht.Frame1(neu).Visible = True
        frmÜbersicht.Frame1(neu).Move 120, NachUnten, 5295, 1100
        frmÜbersicht.Height = frmÜbersicht.Height + 1500
        Load frmÜbersicht.cmdHinzufügen(neu)
        frmÜbersicht.cmdHinzufügen(neu).Visible = True
        frmÜbersicht.cmdHinzufügen(neu).Caption = "Hinzufügen"
        frmÜbersicht.cmdHinzufügen(neu).Move 160, (NachUnten + 350), 5200, 550
    Else
        MsgBox "Der Bereich konnte nich erstellt werden, da sie keinen Namen" & _
          "eingegeben haben.", vbCritical, "FEHLER!!!"
    End If
    Unload Me
End Sub
 
Private Sub Form_Load()
    NachUnten = -500
End Sub