Muchas veces cuando estas programando algo te ves en la necesidad de comunicar dos partes de tu software para que compartan cierta configuracion... como un Builder y un Stub... o un Cliente y un Server...

Cuando esa informacion que han de compartir son simples Booleans (Si/No) como, activar deteccion de Virtual Machines, Melt.. etc... Simplemente puedes almacenar una gran lista de parametros en un simple Long (4Bytes)

He visto Aplicaciones que envian/almacenan cosas como: "ON" o "OFF", si si, en cadenas de texto... Ademas de no ser nada optimo es horroroso por ejemplo abrir el EXE y ver como 20 "ON"s y "OFF"s

Si no me equivoco Cobein ya posteo un codigo que trabajaba con Bitmasks... pero bueno, aqui esta el mio

Aqui va:

Public Function ReadConfig(ByVal lSrc As Long, ByVal iPos As Integer) As Boolean
    ReadConfig = (lSrc And 2 ^ iPos)
End Function
 
Public Function SaveConfig(ParamArray vValues() As Variant) As Long
    Dim i       As Long
    Dim vTmp()  As Variant
 
    vTmp = vValues
    ReDim Preserve vTmp(0 To 30)
 
    SaveConfig = 0
    For i = 0 To 30
        If vTmp(i) Then SaveConfig = (SaveConfig Or 2 ^ i)
    Next i
End Function

Un ejemplo de uso? Aqui teneis :

Private Const lSavedConfig  As Long = &H16E  'SaveConfig(False, True, True, True, False, True, True, False, True, False)
 
Private Sub Form_Load()
    Dim x       As Long
 
    For x = 0 To 30
        If ReadConfig(lSavedConfig, x) = True Then
            MsgBox "La opcion nº" & x & " esta activada"
        End If
    Next x
End Sub
 
Public Function ReadConfig(ByVal lSrc As Long, ByVal iPos As Integer) As Boolean
    ReadConfig = (lSrc And 2 ^ iPos)
End Function

Simplemente generas el numero con la funcion SaveConfig() que te permite guardar hasta 31 Booleans/Opciones, luego con la funcion ReadConfig() le pasas el numero de la opcion y la lees

Saludos, espero que os sea de utilidad

Se empieza a contar por el 0 Ademas, no se puede usar el otro porque 2^31 es demasiado para VB

Si, bueno, puedes utilizar tantos bits como quieras... desde el 1 al 31...
Supongo que en .NET lo habras hecho mejor, ya que si no me equivoco permite usar mas operaciones de bitwise, como << o >>

Esta buena la funcion  (que triste es no saber nada de bits  )