eTestIni()
Dim i As Long
Dim iNd As Long
    ' Create an Ini File to play with:
    On Error Resume Next
        Kill App.Path &amp; "\TEST.INI"
    On Error GoTo 0
    With m_cIni
        .Path = App.Path &amp; "\TEST.INI"
        .Section = "Window"
        .Key = "Toolbar"
        .Value = "1"
        .Key = "Statusbar"
        .Value = "1"
        .Key = "Maximised"
        .Value = (Me.WindowState = vbMaximized)
        .Key = "Left"
        .Value = Me.Left
        .Key = "Top"
        .Value = Me.Top