在VB中如何分割窗体? (高分)

经典代码在此：
一个PICTUREBOX控件，命名为Splitter
一个LISTBOX控件，命名为LISTLEFT
一个TEXTBOX控件，命名为TEXTRIGHT

Option Explicit

Private Const SPLT_WDTH As Integer = 3

Private currSplitPosX As Long

Dim CTRL_OFFSET As Integer

Dim SPLT_COLOUR As Long
Private Sub Form_Load()

CTRL_OFFSET = 5
SPLT_COLOUR = &H808080

currSplitPosX = &H7FFFFFFF

ListLeft.AddItem "列表项 1"
ListLeft.AddItem "列表项 2"
ListLeft.AddItem "列表项 3"
ListLeft.AddItem "列表项 4"
ListLeft.AddItem "列表项 5"

TextRight = "在一些流行的应用程序中，经常见到窗体上有二个相邻的列表框，可以用鼠标任意拉动中间分割条，改变列表框大小。"

End Sub

Private Sub Form_Resize()

Dim x1 As Integer
Dim x2 As Integer
Dim height1 As Integer
Dim width1 As Integer
Dim width2 As Integer

On Error Resume Next

height1 = ScaleHeight - (CTRL_OFFSET * 2)
x1 = CTRL_O