一个很奇怪的错误，树控件不停的提示鼠标事件出错，好多方法都没用，可以试着在所在窗体添加上下边的代码

    Private Sub Form_Error(DataErr As Integer, Response As Integer)
        Response = -1
    End Sub