
   End If
End Property


Public Sub Bind(oLeftTop As Object, oRightBottom As Object)
   
   If (m_oContainer Is Nothing) Then
      Set m_oContainer = oLeftTop.Container
   End If
   
   Set m_oLeftTop = oLeftTop
   Set m_oLeftTop.Container = m_oContainer
   Set m_oRightBottom = oRightBottom
   Set m_oRightBottom.Container = m_oContainer
      
   Resize
   
End Sub

Private Function pbConfigured() As Boolean
   If Not m_oContainer Is Nothing Then
      If Not m_oLeftTop Is Nothing Then
         If Not m_o