怎样在鼠标拖动其边框时改变TREEVIEW的宽度？？？

Question

'    Purpose:
'     Author:吴文智
'       Date:2001-1
'Description:要试用本例请在窗体中填加一个TreeView控件名为TreeView1,
'            一个图片框控件名为picSplit,并将图片框的MousePointer设置为 9
'            然后在代码窗体中粘贴如下代码
'            Good luck!Private Sub Form_Load()
    TreeView1.Left = 0
    picSplit.Left = TreeView1.Width
End SubPrivate Sub picSplit_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    picSplit.BackColor = &H8000000F
End SubPrivate Sub picSplit_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    picSplit.BackColor = &H8000000C
End SubPrivate Sub picSplit_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim lngRange As Long
    
    If Button = vbLeftButton Then
        lngRange = picSplit.Left + x
        
        If lngRange < 600 Then lngRange = 600
        If lngRange > Me.Width - 600 Then lngRange = Me.Width - 600
        
        picSplit.Left = lngRange
        TreeView1.Width = lngRange
    End If
End Sub