Private Sub Form_Activate()
 
Dim a%, b%, c%, d%, e%, N%
 
Me.AutoRedraw = True
N = 0
For a = 0 To 1
  For b = 0 To 1
    For c = 0 To 1
      For d = 0 To 1
        For e = 0 To 1
          Me.Print N & " = " & a; b; c; d; e
          N = N + 1
        Next e
      Next d
    Next c
  Next b
Next a
 
End Sub

Gruss,

Zardoz