B4J Question Popup form

Sub AppStart (Form1 As Form, Args() As String)
    MainForm.Initialize("frm",400,400)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("menu1") 'Load the layout file.
    MainForm.Show
End Sub

Sub imgsoci_MouseClicked (EventData As MouseEvent)
    'MainForm.close
    soci.Initialize("frm",400,400)
    soci.RootPane.LoadLayout("menusoci")
    soci.Title = "GESTIONE SOCI"
    soci.Show
End Sub