checking if a control exists - please help

[jamielawjen]

hi there

i need to check first that a control exists before adding new one,

how do i do this

i have the following code, but im not sure how to check if the control object is filled or not

Dim testcontrol As Office.CommandBarControl
    Set testcontrol = objApp.ActiveExplorer.CommandBars.item("Menu Bar").controls.item("My Control")
 
    If testcontrol = false Then
'add control
else
'control exists
end if

alternatively, is there some way chekc if a control exists like

objApp.ActiveExplorer.CommandBars.item("Menu Bar").controls.exists("my control")

i am using vb6, outlook 2000+
many thanks

Jamie

[mikeyc1204]

Most if not all examples I've seen of commandbar manipulation involve deleting the old control and adding the new one instead of figuring a way to check for it's existance.

Sub RemoveControl()
    On Error Resume Next
    objApp.ActiveExplorer.CommandBars.item("Menu Bar").controls.item("My Control").Delete
End Sub
 
Sub AddControl()
    Call RemoveControl
    objApp.ActiveExplorer.CommandBars.item("Menu Bar").Controls.Add(....)
End Sub