Mega Code Archive

 

Categories / VB.Net / Language Basics

 

On Error go to line

Imports System Public Class MainClass          Shared Sub Main(ByVal args As String())         On Error GoTo LoadError         LoadPayrollFile()         On Error GoTo PrintError         PrintPaychecks()         Exit Sub LoadError:         Console.WriteLine("Error loading the file.")         Exit Sub PrintError:         Console.WriteLine("Error printing.")         Exit Sub     End Sub     Shared Private Sub LoadPayrollFile()         Throw New ArgumentException("Error in subroutine LoadFile")     End Sub     Shared Private Sub PrintPaychecks()         Throw New ArgumentException("Error in subroutine Print")     End Sub End Class