          ctl.fInUse = True
               bSucceeded = True
               Exit For
            End If
         End If
      Next
      
   End If
   
   getCachedControlInstance = bSucceeded
   
End Function

Private Sub cacheControlInstance(ctl As vbalCommandBar)
   If m_colPopups Is Nothing Then
      Set m_colPopups = New Collection
   End If
   TagControl ctl.hWnd, ctl, True
   m_colPopups.Add ctl.hWnd, "H" &amp; ctl.hWnd
End Sub

Private Sub releaseCachedControlInstances()
   If Not m_colPopups Is No