SysVarChanged事件？

Private Sub ACADApp_SysVarChanged(ByVal SysvarName As String, ByVal newVal As Variant)
 Select Case SysvarName
  Case Is = "wscurrent"
  Case newVal = "Test"
  MsgBox "Anything?"
 End Select
End Sub

Private Sub ACADApp_SysVarChanged(ByVal SysvarName As String, ByVal newVal As Variant)
 Select Case SysvarName
  Case Is = "WSCURRENT"
       Msgbox "New value for WSCURRENT is " & newVal
 End Select
End Sub

Select Case CommandName
 Case Is = "LINE"
 MsgBox "We apologize for the inconvenience but AutoCAD has temporarily ran out of lines" & vbCrLf & _
 "Please try again", vbCritical
 SendKeys "{ESC}"
End Select

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