FUNCTION DOFORM(cformname) * procedure to start all forms that could be called more than once * to prevent running multiple copies of the same form LOCAL x, nform nform = 0 * scan the forms on the screen For x = 1 to _screen.formcount * formname is case sensitive and will be the name of the form If _screen.forms(x).name = (cformname) nform = x EndIf Next If nform > 0 * just show it _screen.forms(nform).show Else * run it Do Form (cformname) EndIf RETURN .t.Maybe put the for/next loop in the load of your form class.