Mega Code Archive

 

Categories / VB.Net / Development

 

On Error Resume Next

Imports System Public Class MainClass          Shared Sub Main(ByVal args As String())         On Error Resume Next         DoSomething()         If Err.Number <> 0 Then             Console.WriteLine("Error in DoSomething")             Exit Sub         End If         DoSomethingElse()         If Err.Number <> 0 Then             Console.WriteLine("Error in DoSomethingElse")             Exit Sub         End If     End Sub     Shared Private Sub DoSomething()             Throw New ArgumentException("Error in subroutine DoSomething")     End Sub     Shared Private Sub DoSomethingElse()             Throw New ArgumentException("Error in subroutine DoSomethingElse")     End Sub End Class