[klaus]

Hi Erel and WZSun,
Works fine !
I modified the code a bit to postion also the first form, in some programs I have only one form.

Sub App_Start
    LoadInit             ' reads the position of the main form frmTop and frmLeft

    door.New1(false)

    If Not(CPPC) Then
      door.FromControl("form1")
      door.SetProperty("StartPosition","Manual")
    End If

    Form1.Top=frmTop  ' sets the position
    Form1.Left=frmLeft
    Form1.Show

    If Not(CPPC) Then
      door.FromControl("form2")
      door.SetProperty("StartPosition","Manual")
'      door.FromControl("form3")
'      door.SetProperty("StartPosition","Manual")
    End If
'    ...
End Sub

Best regards