Ciao a tutti

Devo generare le combinazioni booleane, tipo x 2 bit

00
01
10
11

Il numero dei bit è variabile (ma oviamente al momento dell'algoritmo lo conosco)

ho scritto del codice

codice:
For i = 1 To ncombinazioni (2 ^ nbit)
   subnt = ""
   For t = 0 To nbit
      if ?? ><=mod?? then
      subnt = 1 o 0 & subnt      
   Next
   Set mItem = ListView1.ListItems.Add(, , i)
   mItem.ListSubItems.Add , , subnt
Next
Ma non mi viene propio come far generare le varie combinazioni.
So che gli 1 (e zeri) vengono ripetuti ciclicamente per 2 ^ (posizione bit).
Ma non posso dimensionare una variabile che controlli le variazioni per ogni bit, xchè non so quanti sono.....
Qualcuno ha qualche idea????