setting = App.Path & "\Setting.txt"
'Settings.txt einlesen
Dim F As Integer
Dim Zeile0 As String
Dim Zeile1 As String
Dim Zeile2 As String
Dim Zeile3 As String
Dim Zeile4 As String
Dim Zeile5 As String
F = FreeFile
Open setting For Input As #F
Line Input #F, Zeile0
Line Input #F, Zeile1
Line Input #F, Zeile2
Line Input #F, Zeile3
Line Input #F, Zeile4
Line Input #F, Zeile5
 
'Settings aus Settings.txt zuordnen
Label1(0).Caption = Zeile0
Label1(1).Caption = Zeile1
Label1(2).Caption = Zeile2
Label1(3).Caption = Zeile3
Label1(4).Caption = Zeile4
Label1(5).Caption = Zeile5
Close F

'festlegen der settingsdatei und pfad
setting = App.Path & "\Setting.txt"
'wenn die überhaupt vorhanden
if dir$(setting)<>"" then
    'open
    f=freefile
    i=-1
    open setting for input as #f
    'nach und nach alle settings einlesen...
    do
        i=i+1
        line input#f, label(i).caption
    'bis am dateiende angekommen
    loop until eof(f)
    close #f
endif

Gru?

BernyH