' create splitter
between listboxes on left and right
Set m_clsSplitterH =
New CAJPiSplitter
' Initialize splitter
m_clsSplitterH.Initialize Me
' Specify which controls are
to the left of the splitter
m_clsSplitterH.AddControlsLeft ListBox1,
ListBox4
' Specify which controls are
to the right of the splitter
m_clsSplitterH.AddControlsRight ListBox2,
ListBox3
' Color background of grab
handle to green
m_clsSplitterH.GrabHandleBackcolor = RGB(0,
255, 0)
|