RightBottom Is Nothing Then
            pbConfigured = True
         End If
      End If
   End If
End Function

Public Sub MouseDown(Button As Integer, Shift As Integer, x As Single, y As
 Single)
   If (Button = vbLeftButton) Then
      Dim bCancel As Boolean
      RaiseEvent Split(x, y, bCancel)
      If Not bCancel Then
         m_bInDrag = True
      
         Dim tP As POINTAPI
         GetCursorPos tP
         LSet m_tPInitial = tP
         m_lSplitInitial = m_lSplitPos
            
         Dim tR A