Imports System
Imports System.Text
Imports System.Text.RegularExpressions
Public Class MainClass
Shared Sub Main( )
Dim shrShort As Short
Dim shrUInt16 As UInt16
Dim shrInt16 As Int16
Dim intInteger As Integer
Dim intUInt32 As UInt32
Dim intInt32 As Int32
Dim lngLong As Long
Dim lngInt64 As Int64
shrShort = 0
shrUInt16 = Convert.ToUInt16(shrShort)
shrInt16 = shrShort
intInteger = shrShort
intUInt32 = Convert.ToUInt32(shrShort)
intInt32 = shrShort
lngInt64 = shrShort
lngLong = lngLong.MaxValue
If lngLong > Short.MaxValue Then
shrShort = Convert.ToInt16(lngLong)
End If
intInteger = CInt(lngLong)
End Sub 'Main
End Class