MinValue and MaxValue of Short

public class Test
   public Shared Sub Main
               Dim sNum As Short

               Console.WriteLine("Short: " & sNum.MinValue & " to " & sNum.MaxValue)

   End Sub
End class