Class Sample
Public Shared Sub Main()
Dim numbers() As Short = { Int16.MinValue, -1000, 0, 1000, Int16.MaxValue }
Dim result As Decimal
For Each number As Short In numbers
result = Convert.ToDecimal(number)
Console.WriteLine("Converted the Int16 value {0} to the Decimal value {1}.", _
number, result)
Next
End Sub 'Main
End Class 'Sample