vb6 – 为什么ByRef不能与WithEvents一起使用？

我有以下方法：

Private Sub SafeCloseAndDeRefConnection(ByRef cnx As ADODB.Connection)
On Error GoTo ErrH
    If Not cnx Is Nothing Then
        If (cnx.State And adStateConnecting) = adStateConnecting Then
            cnx.Cancel
        End If

        If (cnx.State And adStateOpen) = adStateOpen Then
            cnx.Close
        End If

        Set cnx = Nothing
    End If
Exit Sub
ErrH:
 Set cnx = Nothing
End Sub

如果我有一个类成员声明如此：

Private WithEvents Connection As ADODB.Connection

然后我想关闭连接然后调用它：

SafeCloseAndDeRefConnection Connection

但在调用SafeCloseAndDeRefConnection之后,Connection变量未设置为Nothing且仍具有其原始引用.

如果我删除WithEvents关键字,对SafeCloseAndDeRefConnection的调用按预期工作(但显然不能处理事件)

任何人都可以向我解释为什么会这样吗？

附：我找到了类似的question elsewhere,但解决方法在我的方案中不起作用.