CreateComInstance(Handle hoTabToolBar)
This may not be needed if we can treat commandbar objects as static
// attach this object to its appropriate COM object.
Procedure AttachComObject
Variant vCat
String sName
Get psCategory to sName
Delegate Get FindByCategory sName to vCat
If (IsNullComObject(vCat)) Begin
Error DFERR_PROGRAM "Assert: AttachComObject failed to attach tabcontrolitem"
End
Else Begin
Set pvComObject to vCat
End
End_Procedure
cComAutomationObject