oForm = createobject("myModalReport","myReport") >oForm.show() >return > >define class myModalReport as Form > WindowState = 2 > Caption = "My report" >* .TitleBar = 0 && Completely removes titlebar > Minbutton = .f. > MaxButton = .f. > Movable = .f. > HalfHeightCaption = .t. > BorderStyle = 2 && Fixed dialog > BackColor = rgb(255,255,255) > WindowType = 1 && Modal > RepName = "" > procedure init > lparameters tcReportName > this.RepName = tcReportName > endproc > procedure activate > Report form (this.RepName) prev window (this.Name) > this.release > endproc >enddefineCetin