Long = &H1000&

public class Test

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