VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmSettings 
   Caption         =   "Einstellungen"
   ClientHeight    =   1815
   ClientLeft      =   120
   ClientTop       =   465
   ClientWidth     =   8895
   OleObjectBlob   =   "frmSettings.frx":0000
   StartUpPosition =   1  'Fenstermitte
End
Attribute VB_Name = "frmSettings"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub btnCancel_Click()

     Unload Me
     
End Sub

Private Sub btnOk_Click()

    Call gfSettings.SetSettingValue("OnlineArchiv", tbOnlinearchiv.Text)
    Unload Me
    
End Sub

Private Sub UserForm_Activate()
    
    ' Fenster-Titel zuweisen
    Me.Caption = "Einstellungen"
    
    tbOnlinearchiv.Text = gfSettings.GetSettingValue("OnlineArchiv")
        
End Sub