Private Sub Form_Load()
Me.Width = GetSetting(App.EXEName, "WindowSize", "Width", 6000)
Me.Height = GetSetting(App.EXEName, "WindowSize", "Height", 6000)
Me.Top = GetSetting(App.EXEName, "WindowSize", "Top", 600)
Me.Left = GetSetting(App.EXEName, "WindowSize", "Left", 600)
Me.WindowState = GetSetting(App.EXEName, "WindowSize", "WindowState", 0)
End Sub

Private Sub Form_Unload(Cancel As Integer)
If Me.WindowState = 0 Then
    SaveSetting App.EXEName, "WindowSize", "Width", Me.Width
    SaveSetting App.EXEName, "WindowSize", "Height", Me.Height
    SaveSetting App.EXEName, "WindowSize", "Top", Me.Top
    SaveSetting App.EXEName, "WindowSize", "Left", Me.Left
End If
SaveSetting App.EXEName, "WindowSize", "WindowState", Me.WindowState
End Sub