VB.Net by API/System/Short

Short.MaxValue

<source lang="vbnet">

public class Test

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

End class

 </source>

Short.MinValue

<source lang="vbnet">

public class Test

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

End class

 </source>