Private Sub Form_Unload(Cancel As Integer)
Dim Startpage As String
    Startpage = lblstartpage.Tag
    SaveSetting App.Title, "Optionen", "Startpage", Startpage
End Sub

Dim Label(index) as String
	Label(index) = Label(index).Caption
	SaveSetting App.Title, "Optionen", "Label(index)", Label(index)

----------------------------------------------------------------
vb@rchiv =/= To boldly go where no programmer has gone before =/=