|
Si entiendo bien, lo podrías hacer de la sigiente forma
'Para guardar
SaveSetting App.EXEName, "Datos", "dato1", label1.Caption
SaveSetting App.EXEName, "Datos", "dato2", label2.Caption
SaveSetting App.EXEName, "Datos", "dato3", label3.Caption
'para cargar
Private Sub Form_Load()
label1.Caption = GetSetting (App.EXEName, "Datos", "dato1")
label2.Caption = GetSetting (App.EXEName, "Datos", "dato2")
label3.Caption = GetSetting (App.EXEName, "Datos", "dato3")
Loop
El registro no es inviolable, pero es más complicado de acceder para el común de los usuarios.
Saludos.
|