vate Sub Form_Load()
    With m_cIni
        .Path = App.Path &amp; "\PTESTINI.INI"
        .Section = Me.Name
        .LoadFormPosition Me, Me.Width, Me.Height
    End With
    CreateTestIni
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    With m_cIni
        .Path = App.Path &amp; "\PTESTINI.INI"
        .Section = Me.Name
        .SaveFormPosition Me
    End With
    
End Sub

Private Sub Form_Resize()
Dim lL As Long
    On Error Resume Next
    lL = Me.ScaleWidth - fra