怎样简单实现两个列表框的分割

Question

delphi有专门的控件实现
vb 麻烦点
如两边的是两个picturebox那中间可拉动部分可以一个label控件
原理是让两边的picturebox的大小随着label在鼠标的控制移动下改变大小
参考代码:
dim canmove 
dim startx
dim startyPrivate Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If vbRightButton <> 0 Then
     startx = X
     canmove = True
  End If
End SubPrivate Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If canmove Then
      If vbRightButton <> 0 Then
         Label1.Left = Label1.Left + X - startx
   On Error Resume Next
         With Picture1
            .Width = .Width + X - startx
         End With
   On Error Resume Next
         With Picture2
            .Width = .Width - X + startx
            .Left = Picture1.Width + Label1.Width
         End With
      End If
   End If
End SubPrivate Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  canmove = False
End Sub

Answer 1

qiuzhongshu(不长毛的猪)兄，其实你说的这个方法我也会，我只是以为应该有个控件的，想偷懒的。呵呵。还是要谢谢你，因为只有你回答了我的问题。给分了。