'You can create a Vertical or Horizontal Split
'bar by creating a Picture box containing
'two controls separated by a PictureBox splitter bar.
'The following code shows an example of what would
'be needed for the form to active the splitter bar...
'
'Originally Created by Michael Jones @ CServe(73404.2202)
'Modified by Steven C Wong Dec 1995 (Steve_C_W@msn.com)
'
'Option Explicit
' form position constants
'Const FORM_LEFT = 0
'Const FORM_TOP = 0

' splitter position and offsets
'Const SPLITTER_LEFT = 105
'Const SPLITTER_TOP = 105
'Const SPLITTER_WIDTH_OFFSET = 315
'Const SPLITTER_HEIGHT_OFFSET = 600
' splitter object

'Dim moVSplitter As CVerticalSplitter
'----------------------------------
'Private Sub Form_Load()
'   Me.Move FORM_LEFT, FORM_TOP
   ' instantiate the splitter object
'   Set moVSplitter = New CVerticalSplitter
'   moVSplitter.Init _
'     picVContainer, _      'Pass Picture object containting the two objects to split
'     picVSplitter, _       'Pass the Splitter picture object in picVContainer
'     txtLeft, _            'Pass the object left of picVSplitter in picVContainer
'     txtRight              'Pass the object right of picVSplitter in picVContainer
'End Sub
'----------------------------------
'Private Sub Form_Resize()
'   If Me.WindowState <> vbMinimized Then
'      moVSplitter.Move SPLITTER_LEFT, _
'         SPLITTER_TOP, _
'         Me.Width - SPLITTER_WIDTH_OFFSET, _
'         Me.Height - SPLITTER_HEIGHT_OFFSET
'   End If
'End Sub
'----------------------------------
'Private Sub Form_Unload(Cancel As Integer)
   ' release the splitter object
'   Set moVSplitter = Nothing
'End Sub
'----------------------------------
'Private Sub picVSplitter_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   ' record event
'   moVSplitter.MouseDown
'End Sub
'----------------------------------
'Private Sub picVSplitter_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'   moVSplitter.MouseMove X
'End Sub
'----------------------------------
'Private Sub picVSplitter_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'   moVSplitter.MouseUp
'End Sub
'----------------------------------


