我估計你是使用一個“刪除”按鈕來進行刪除操作，這樣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>