Thisform.chk.standard.Value = (VARTYPE(omymainform.oToolStandard) = 'O') *do simillars to the other's toolbars.Now on the Release of the form fo the following:
IF Thisform.chk.standard.Value IF VARTYPE(omymainform.oToolStandard) # 'O' omymainform.ADDOBJECT('oToolStandard', 'mystandardtoolbarclass') omymainform.oToolStandard.Visible = .t. ENDIF ELSE IF VARTYPE(omymainform.oToolStandard) # 'O' omymainform.REMOVEOBJECT('oToolStandard') ENDIF ENDIF *do simillars to the other's toolbars.>I need to create a function that verifies if the toolbar wasn't released. If yes, I'll create a new instance of my toolbar... I thought that I had a more easy way to do this!