
        .Key = "Width"
        .Value = Me.Width
        .Key = "Height"
        .Value = Me.Height
        .Key = "Title"
        .Value = App.Title
        .Section = "Options"
        .Key = "ShowTips"
        .Value = "1"
        .Key = "OpenInNewWindow"
        .Value = "0"
        .Section = "Controls"
        For i = 0 To Me.Controls.Count - 1
            .Key = "Control" &amp; i
            Err.Clear
            On Error Resume Next
            iNd = Me.Controls(i).Index
            If (Err.Number 