IF TYPE("thisform.oToolbar")="O" AND; !ISNULL(thisform.oToolbar) RETURN ENDIF SET CLASSLIB TO imgcontrol ADDITIVE thisform.oToolbar=create("grmain",THISFORM) thisform.oToolbar.show release classlib imgcontrol