Private Sub Form_Load()
Label10.Caption = GetSetting(App.EXEName, "Speicherung", "Name", _
  Label10.Caption)
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.EXEName, "Speicherung", "Name", Label10.Caption
End Sub