Пора применить наш класс. Считывать данные лучше при загрузке формы, а записывать при выгрузке. Мы с Вами будет запоминать расположение формы на экране при выходе и восстанавливать при запуске снова. Объявляем экземпляр класса. При запуске формы пытаемся считать позицию, при выходе записать.
Private AppReestr As Reestr Private Sub Form_Load() Set AppReestr = New Reestr AppReestr.AppName = "Test" AppReestr.Section = "Form" AppReestr.Key = "PositionTop" AppReestr.RestoreSettings Form1.Top = Val(AppReestr.Setting) AppReestr.Key = "PositionLeft" AppReestr.RestoreSettings Form1.Left = Val(AppReestr.Setting) End Sub Private Sub Form_Unload(Cancel As Integer) AppReestr.Key = "PositionTop" AppReestr.Setting = Str(Form1.Top) AppReestr.SaveSettings AppReestr.Key = "PositionLeft" AppReestr.Setting = Str(Form1.Left) AppReestr.SaveSettings End Sub
Попробуйте запустить программу, переместить форму, выйти запустить опять все у Вас должно работать. Потом можно заглянуть в реестр и посмотреть настройки.