    m_lSplitPos = m_lSplitInitial + (tP.y - m_tPInitial.y)
         End If
         pValidatePosition
            
         pResizePanels
         
         pSetProportion
         m_bInDrag = False
      End If
   End If
End Sub

Private Sub pDrawSplitter()
Dim lhDC As Long
Dim hOldBrush As Long
   lhDC = CreateDCAsNull("DISPLAY", ByVal 0&amp;, ByVal 0&amp;, ByVal 0&amp;)
   hOldBrush = SelectObject(lhDC, m_hBrush)
   PatBlt lhDC, m_tSplitR.Left, m_tSplitR.Top, m_tSplitR.Right -
    m_tSplitR.Left, m_tSpli