PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form Height = 223 Width = 358 Caption = "Form1" Name = "Form1" * remove this comment * ScrollBars = 3 ADD OBJECT check1 AS checkbox WITH ; Top = 43, ; Left = 118, ; Height = 17, ; Width = 133, ; Caption = "V ScrollBars", ; Name = "Check1" PROCEDURE Load thisform.ScrollBars = 2 ENDPROC PROCEDURE check1.Init IF m.thisform.ScrollBars = 2 this.Value = 1 ENDIF ENDPROC PROCEDURE check1.Valid thisform.ScrollBars = m.this.value * 2 ENDPROC ENDDEFINEThen ( on help is little explain this )