lparameters tlEnabled, toObject >>>>> >>>>>local loObjectX && you're already using loObject for another purpose >>>>> >>>>>if vartype( m.toObject ) <> "O" >>>>> loObjectX = this >>>>>else >>>>> loObjectX = m.toObject >>>>>endif>>>>
PUBLIC oform1 > >oform1=NEWOBJECT("form1") >oform1.Show >RETURN > >DEFINE CLASS form1 AS form > > Top = 0 > Left = 0 > Height = 146 > Width = 314 > DoCreate = .T. > Caption = "Form1" > Name = "Form1" > > ADD OBJECT check1 AS checkbox WITH ; > Top = 54, ; > Left = 72, ; > Height = 17, ; > Width = 82, ; > AutoSize = .T., ; > Caption = "Checkbox 1", ; > Value = .F., ; > Name = "Check1" > > ADD OBJECT check2 AS checkbox WITH ; > Top = 84, ; > Left = 72, ; > Height = 17, ; > Width = 82, ; > AutoSize = .T., ; > Caption = "Checkbox 2", ; > Value = .F., ; > Name = "Check2" > > ADD OBJECT command1 AS commandbutton WITH ; > Top = 12, ; > Left = 72, ; > Height = 27, ; > Width = 174, ; > Caption = "Check/Uncheck checkbox 1", ; > Name = "Command1" > > PROCEDURE dummy > lparameter toObject > > toObject = thisform.check2 > ENDPROC > > PROCEDURE command1.Click > local loCheckbox > > set udfparms to REFERENCE > > loCheckbox = thisform.check1 > > thisform.dummy( loCheckbox ) > > loCheckbox.value = not loCheckbox.value > ENDPROC >ENDDEFINEI see the point now. Also