SetRegValue ..., "FormWindowState", Form1.WindowState
    If Form1.WindowState =  0  Then 'эти параметры запоминаются для норм. состояния формы
        SetRegValue ...   "FormTop", Form1.Top
        SetRegValue  ...  "FormLeft", Form1.Left
        SetRegValue  ... "FormHeight", Form1.Height
        SetRegValue  ...  "FormWidth", Form1.Width
    End If

' Save the form's size and position.
Private Sub SavePosition(ByVal frm As Form, ByVal app_name _
    As String)
    SaveSetting(app_name, "Geometry", "WindowState", _
        frm.WindowState)
    If frm.WindowState = FormWindowState.Normal Then
        SaveSetting(app_name, "Geometry", "Left", frm.Left)
        SaveSetting(app_name, "Geometry", "Top", frm.Top)
        SaveSetting(app_name, "Geometry", "Width", _
            frm.Width)
        SaveSetting(app_name, "Geometry", "Height", _
            frm.Height)
    Else
        SaveSetting(app_name, "Geometry", "Left", _
            frm.RestoreBounds.Left)
        SaveSetting(app_name, "Geometry", "Top", _
            frm.RestoreBounds.Top)
        SaveSetting(app_name, "Geometry", "Width", _
            frm.RestoreBounds.Width)
        SaveSetting(app_name, "Geometry", "Height", _
            frm.RestoreBounds.Height)
    End If
End Sub