我估计你是使用一个“删除”按钮来进行删除操作，这样ActiveControl是按钮，而不是ListView或TreeView。你可以声明一个窗体级变量： 
    Dim nLastControl As Integer 
    然后在ListView和TreeView的LostFocus事件中添加代码： 
    Sub ListView1_LostFocus() 
     nLastControl = 1 
    End Sub 
     
    Sub TreeView1_LostFocus() 
     nLastControl = 2 
    End Sub 
    这样你可以在删除时检查nLastControl的值，如果为1，说明刚才选择的是ListView。 
<END>
