Wish B4J 6: Templates / Snippets that one can paste.

'Static code module
Sub Process_Globals
    Private fx As JFX
    Private frm As Form
End Sub

Public Sub Show(ParentForm As Form)
    frm.Initialize("frm",400, 550)
    frm.Resizable = False
    frm.RootPane.LoadLayout(FormName)
    frm.Title = FormTitle
    frm.SetOwner(ParentForm)
    frm.Show
End Sub


Sub Close
    frm.close
End Sub