Dim aa As Boolean
Private Sub Form_Resize()
    TreeView1.MousePointer = 9   '设鼠标类型
End Sub
Private Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    aa = True
End Sub
Private Sub TreeView1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If aa = True Then
        Text1.Left = TreeView1.Left + X
        RichTextBox1.Left = TreeView1.Left + X
        TreeView1.Width = RichTextBox1.Left - TreeView1.Left
    End If
End Sub
Private Sub TreeView1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    aa = False
End Sub
上述代码实现程序运行后，拖动treeview控件时，其他控件随着一起变换位置，但其他控件的大小不能变化，如何让其他控件大小也一起变化。请教各位。

[此贴子已经被作者于2018-12-20 20:34编辑过]

如果有类似的帖子推荐一下，我可以自己学习。谢谢啦！

TreeView1_MouseMove事件
TreeView1.Width = RichTextBox1.Left - TreeView1.Left       ’按下鼠标移动的过程中改变treeview的宽度  
后面在加一个Text1.Width = Me.ScaleWidth - Text1.Left - 500   
’这句代码的意思，首先定义treeview和text的宽度和treeview.left属性之和限制在窗体宽度内me。scalewidth，当改变treeview的宽度，相应增加和减少text的宽度

效果类似于：在VB的IDE中，鼠标点中工具箱的右侧移动，整个界面重新划分区域，实际中非常实用

当然，只是个例子，非常简单，使用过程中还要做很多限制，比如，treeview和text的width不得小于一个范围；鼠标的限制等

你代码中，涉及鼠标事件和窗体的resize事件，这些事件和拖动没关系，treeview的dragmode设置为自动，能看到拖动效果；设置为手动，看不到拖动效果



知识有限，希望对你有帮助

Private Sub TreeView1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    '在这个事件中，随 TreeView1 的 Width 与 Height 值的改变，需要改变的不仅仅是其他控件 Left 的改变，还要改变其他控件的  Width 、 Height、Top 的。
    '这样才能适应随 TreeView1 的改变而改变其他控件的位置与大小。由于控件初始位置不同，不能给出具体的代码。
    '最好在 Form_Load 过程中存储各控件的 Left、Width 、 Height、Top 的原始值，存储的变量应该是模块级变量。
End Sub

谢谢！我用了两个image控件实现了。

谢谢！我用了两个image控件实现了。