SysVarChanged事件？

Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
Dim strUser As String
      Select Case UCase(CommandName)
      Case Is = "BEDIT"
            strUser = UCase(Environ("USERNAME"))
            Select Case strUser
            Case "UA02038"
            Case "UA03347"
            Case Else
                  MsgBox "B-Edit has been removed," & vbCrLf & _
                         "Contact Ron Roach or David Hall", vbCritical
                  SendKeys "{ESC}"
            End Select
      Case Is = "-BEDIT"
            strUser = UCase(Environ("USERNAME"))
            Select Case strUser
            Case "UA02038"
            Case "UA03347"
            Case Else
                  MsgBox "B-Edit has been removed," & vbCrLf & _
                         "Contact Ron Roach or David Hall", vbCritical
      '  SendKeys "{ESC}"
                  ThisDrawing.SendCommand "bclose" & vbCr
            End Select
      Case Is = "COMMANDLINE"
            Set AutoCAD = ThisDrawing.Application
      End Select
End Sub

Private Sub ACADApp_SysVarChanged(ByVal SysvarName As String, ByVal newVal As Variant)
 Select Case SysvarName
  Case Is = "WSCURRENT"
  Case Is = "Map Classic"
   MsgBox "Do something!"
 End Select
End Sub

MsgBox "B-Edit has been removed," & vbCrLf & _
                         "Contact Ron Roach or David Hall", vbCritical

Private Sub ACADApp_SysVarChanged(ByVal SysvarName As String, ByVal newVal As Variant)
 Select Case SysvarName
  Case Is = "WSCURRENT"
  Dim N As String
   N = GetVariable("WSCURRENT")
   If N = "Map Classic" Then
   MsgBox "Do something"
   End If
 End Select
End Sub