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