SavePosForm

Option Explicit
Public Sub FormWinRegPos(pMyForm As Form, Optional pbSave As Boolean)
'This Procedure will Either Retrieve or Save Form Posn values

'Best used on Form Load and Unload or QueryUnLoad

On Error Goto EH
With pMyForm
SaveSetting App.EXEName, .Name, "WindowState", .WindowState
If .WindowState = vbMinimized Or .WindowState = vbMaximized Then
.WindowState = vbNormal
End If
If pbSave = True Then ' e' in uscita
'Save AppName...FrmName...KeyName...Value

SaveSetting App.EXEName, .Name, "Top", .Top
SaveSetting App.EXEName, .Name, "Left", .Left
SaveSetting App.EXEName, .Name, "Height", .Height
SaveSetting App.EXEName, .Name, "Width", .Width
Else
.Top = GetSetting(App.EXEName, .Name, "Top", .Top)
.Left = GetSetting(App.EXEName, .Name, "Left", .Left)
.Height = GetSetting(App.EXEName, Name, "Height", .Height)
.Width = GetSetting(App.EXEName, .Name, "Width", .Width)
.WindowState = GetSetting(App.EXEName, _
.Name, "WindowState", .WindowState)
End If
End With
Exit Sub
EH:
MsgBox "Error " & Err.Number & vbCrLf & vbCrLf & Err.Description
End Sub

Private Sub Form_Load()
FormWinRegPos Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
FormWinRegPos Me, True
End Sub