这个控件怎么不能拖动啊

Question

Private Sub ExplorerList1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Shift = 2 Then
        ExplorerList1.Drag 1
    End If
End Sub
郁闷，运行时死活不动

Answer 1

你按住ctrl才能拖动或者，直接拖动
Private Sub ExplorerList1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
        ExplorerList1.Drag 1
End Sub

Answer 2

我按了ctrl的，不能，用这个方法还是不能，是不是要把什么属性改了才能拖动啊？

Answer 3

没有用过这个控件
你先试试listbox控件

Answer 4

是Explorerlist和explorertree做的资源管理器，不能实现拖动，太郁闷了