   
      End If
   End If
End Sub
Public Sub MouseUp(Button As Integer, Shift As Integer, x As Single, y As
 Single)
   If (pbConfigured()) Then
      If (m_bInDrag) Then
         ClipCursorClear 0&amp;
         
         Dim tP As POINTAPI
         GetCursorPos tP
         
         If Not m_bFullDrag Then
            pDrawSplitter
         End If
         
         If (m_eOrientation = cSPLTOrientationVertical) Then
            m_lSplitPos = m_lSplitInitial + (tP.x - m_tPInitial.x)
         Else
        