Source code for Issue Number 3

'----------------------------------------------------------------------
'
'   Module Name:    basForms
'   Written By:     C&D Programming Corp.
'   Create Date:    1/7/98
'   Copyright:      Copyright 1997-98 by C&D Programming Corp.  Source
'                   code may not be reproduced except for use in a
'                   compiled executable.  All rights reserved.  If
'                   you would like to reprint any or all of this
'                   code please email us at info@codeoftheweek.com
'
'   Purpose:        Determine the decimal equivalent of a fraction
'                   or whole number.
'
'
'----------------------------------------------------------------------
Option Explicit

Public Sub COTWSaveWindowPos(ByVal sWindowName As String, _
                                   frm As Form)
    Call SaveSetting(App.EXEName, sWindowName, "Top", frm.Top)
    Call SaveSetting(App.EXEName, sWindowName, "Left", frm.Left)
    Call SaveSetting(App.EXEName, sWindowName, "Width", frm.Width)
    Call SaveSetting(App.EXEName, sWindowName, "Height", frm.Height)
End Sub

Public Sub COTWRestoreWindowPos(ByVal sWindowName As String, _
                                frm As Form)
    frm.Top = GetSetting(App.EXEName, sWindowName, "Top", frm.Top)
    frm.Left = GetSetting(App.EXEName, sWindowName, "Left", frm.Left)
    frm.Width = GetSetting(App.EXEName, sWindowName, "Width", frm.Width)
    frm.Height = GetSetting(App.EXEName, sWindowName, "Height", frm.Height)
End Sub