附   件:

点击下载此示例

方法：

在SysfrmMain卸载事件中加如下代码：
    If Not blExit Then
        If MsgBoxEx("确定要退出吗？", vbQuestion + vbYesNo) = vbNo Then
            Cancel = True
            Exit Sub
        End If
    End If
    blExit = False

在任意一个模块加如下代码
Public blExit As Boolean

Public Function ALogoutRDP()
    If MsgBoxEx("确定要注销吗？", vbQuestion + vbYesNo) = vbNo Then
        Exit Function
    End If
    blExit = True
   Call LogoutRDP
End Function

最后在导航菜单编辑器-注销菜单-操作函数改为ALogOutRDP