Public Sub Initialize(Owner As Form)
MainForm.Initialize("MainForm", 200, 200)
MainForm.SetOwner(Owner)
MainForm.BackColor = fx.Colors.Transparent
MainForm.SetFormStyle("TRANSPARENT")
MainForm.RootPane.Style = $"-fx-background-color:red;-fx-background-radius:48px;"$
MainForm.RootPane.MouseCursor = fx.Cursors.HAND
Dim btn As Button
btn.Initialize("btn")
btn.Text = $"Close modal form"$
MainForm.RootPane.AddNode(btn, 25, 25, -1, -1)
MainForm.ShowAndWait
End Sub