Public Class MainClass
Public Shared Sub Main()
'Implicit Conversions
Dim shtShort As Short = 32767
Dim lnhLong As Long = shtShort
Console.WriteLine(shtShort)
Console.WriteLine(lnhLong)
End Sub
End Class