>Local loForm As Form >loForm = CreateObject("TestForm") >loForm.Show() > >Define Class TestForm As Form > > Add Object cmd1 As CommandButton with top = 20, left = 20, height = 30, width = 300, caption = "Test b\<utton 1" > > Add Object pgf1 As PageFrame with top = 60, left = 20, pagecount = 2, page1.caption = "Test pa\<ge 1", page2.caption = "Test p\<age 2" > > WindowType = 1 > height = 500 > width = 500 > > Procedure init > > this.cmd1.SetFocus() > > EndProc > >EndDefine >>