System VB.Net by API

public class Test
   public Shared Sub Main
               Dim sNum As Short
               Console.WriteLine("Short: " & sNum.MinValue & " to " & sNum.MaxValue)
   End Sub
End class