op = tR.Top + m_lSplitPos
               m_tSplitR.Bottom = m_tSplitR.Top + m_lSplitSize
            End If
            
            pDrawSplitter
            
         End If
         
      End If
   End If
End Sub
Public Sub MouseMove(Button As Integer, Shift As Integer, x As Single, y As
 Single)
      
   If (pbConfigured) Then
      SetCursor m_hCursor
   
      If (m_bInDrag) Then
         
         Dim tP As POINTAPI
         GetCursorPos tP
         
         If Not (m_bFullDrag) Then
            p