Public oForm oForm = CreateObject("SwitchForm") oForm.Show() Define Class SwitchForm as Form Add Object cmdModal as CommandButton With Caption="Modal" Add Object cmdModeless as CommandButton With ; Caption="Modeless", ; Top = 50 Procedure cmdModal.Click Thisform.Hide() Thisform.Show(1) Thisform.Show(2) Procedure cmdModeless.Click Thisform.Hide() EnddefineChristof