error.vb

大名鼎鼎的mono是.NET平台的跨平台（支持linux

' Authors:
'   Alexandre Rocha Lima e Marcondes ([e-mail])
'   Maverson Eduardo Schulze Rosa ([e-mail])
'
' GrupoTIC - UFPR - Federal University of Paraná


Module errorstmt

    Public error_number As Integer = 11

    Function Main() As Integer
        Try
            Error error_number

        Catch ex As System.Exception
            If Not (ex.GetType() Is GetType(System.DivideByZeroException)) Then
                System.Console.WriteLine("#A1 Error not working") : Return 1
            End If
        End Try
    End Function
End Module