Public Sub Main()
 
        If Not InStr(1, Now(), "/") > 0 Then
              DATE_Max = "01.01.2099 00:00:01"
              DATE_Min = "01.01.1970 00:00:01"
         Else
              USFLAG = True
              DATE_Max = "01/01/2099 00:00:01"
              DATE_Min = "01/01/1970 00:00:01"
        End If
        appPathConfig = App.Path & "\"
        appPathConfig = Replace(appPathConfig, "\\", "\")
        Load WMAForm
        WMAForm.Visible = False
        WMAForm.setSize
        fillLimits
...
...
...
...
Exit Sub
proc_err:
Process_Error "main", False
End Sub

Public Function setSize(Optional bDontResizeSubForms As Boolean = False)
  On Error GoTo proc_err
 
10         dontResizeSubForms = bDontResizeSubForms
20         Me.Left = ReadINI("Position", "Left", Me.Left)
30         Me.Top = ReadINI("Position", "Top", Me.Top)
40         Me.Width = ReadINI("Position", "Width", "15360")
50         Me.Height = ReadINI("Position", "Height", "11520")
60         xSplit = ReadINI("Position", "Split", "3300")
 
 
           '    Me.Width = 15360
           '    Me.Height = 11520
70         dontResizeSubForms = False
Exit Function
proc_err:
Process_Error Me.name & " setsize"
End Function