定数の最後にハッシュを置き、それを「double」として宣言します。
私はビットマスクフィールドでこれを行いました:
Public Const EDIT_TRANSACTION As Double = 1073741824
Public Const EDIT_DWRDELIVERY As Double = 2147483648#
Public Const ENTER_DWRORDER As Double = 4294967296#
Public Const DELETE_DWRORDER As Double = 8589934592#
Public Const DELETE_TRANSACTION As Double = 17179869184#
Public Const DELETE_WATERORDER As Double = 34359738368#
Public Const ENTER_METERREADING As Double = 68719476736#
** 編集 **
これは私がVB6用に書いた古いコードであり、あなたが求めていたものとは正確に一致しなかったため、私はこれにマークダウンしたと思います。したがって、これを読んでいる人がVB6を使用していて、ビットマスクフィールドをSQLのようなものに渡さなければならない場合、これは私にとって完璧に機能したものです。
それ以外の場合は、私の答えに投票し続けてください。:)