TestOnErrorResume.vb

Module Module1

  Sub Main()
		testOnErrorResumeNext()
		testTryCatch()
  End Sub

	Sub testOnErrorResumeNext()
		On Error Resume Next

		Throw New Exception()
		Throw New NullReferenceException()
		Throw New DivideByZeroException()
		Throw New ArgumentException()
	End Sub

	Sub testTryCatch()
		Try
			Throw New Exception()
		Catch ex As Exception
		End Try
		Try
			Throw New NullReferenceException()
		Catch ex As Exception
		End Try
		Try
			Throw New DivideByZeroException()
		Catch ex As Exception
		End Try
		Try
			Throw New ArgumentException()
		Catch ex As Exception
		End Try
	End Sub
End Module