MinValue and MaxValue of Long

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

Long = 1 Or 2

public class Test

   Public Const MASK_READ_WRITE As Long = 1 Or 2
   public Shared Sub Main
        Console.WriteLine(MASK_READ_WRITE)
   End Sub
End class

Long = &H1000&

public class Test

   Public Const MASK_READ As Long = &H1000&
   public Shared Sub Main
        
   End Sub
End class

ULong of Oct

public class Test

   public Shared Sub Main
        Dim flags As ULong
        flags = &O144 ' Octal &O144 = 1 * 8 * 8 + 4 * 8 + 4 = 64 + 32 + 4 = 100.

        Console.WriteLine(Oct(flags)) ' Octal.
   End Sub

End class

reedlyULong of Hex

public class Test

   public Shared Sub Main
        Dim flags As ULong
        flags = &H64 ' Hexadecimal &H64 = 6 * 16 + 4 = 96 + 4 = 100.

        Console.WriteLine(Hex(flags)) ' Hexadecimal.
   End Sub

End class

ULong of Decimal

public class Test

   public Shared Sub Main
        Dim flags As ULong
        flags = 100 ' Decimal 100.

        Console.WriteLine(flags)      ' Decimal.
   End Sub

End class

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