VB.Net/Language Basics/Overflow

Demonstrating overflows with and without checking

<source lang="vbnet"> Imports System Public Class MainClass

  Shared Sub Main()
     Try
        Dim number1 As Integer = Int32.MaxValue " 2,147,483,647
        Dim number2 As Integer = Int32.MaxValue " 2,147,483,647
        Dim sum As Integer = 0
        " output numbers
        Console.WriteLine("number1: {0}" & vbCrLf & _
           "number2: {1}", number1, number2)
        Console.WriteLine(vbCrLf & _
           "Sum integers in checked context:")
        sum = number1 + number2 " compute sum
        Console.WriteLine(vbCrLf & _
           "Sum after operation: {0}", sum)
        " catch overflow exception
     Catch overflowExceptionParameter As OverflowException
        Console.WriteLine(overflowExceptionParameter.ToString())
     End Try
  End Sub " Main

End Class

      </source>