, EnvDTE.Debugger3. NullReferenceException, , :
Sub SetNullReferenceExceptionTrap()
Dim dbg As Debugger3 = DTE.Debugger
Dim group As ExceptionSettings = dbg.ExceptionGroups.Item("Common Language Runtime Exceptions")
Dim except As ExceptionSetting = group.Item(GetType(System.NullReferenceException).FullName)
group.SetBreakWhenThrown(True, except)
End Sub
, False .