'Benötigt wird: eine Listbox
Private Sub Form_Activate()
 
Dim a%, b%, c%, d%, e%, f%
 
Me.MousePointer = vbHourglass
DoEvents
With List1
  .Visible = False
  For a = 1 To 12
    For b = a + 1 To 12
      For c = b + 1 To 12
        For d = c + 1 To 12
          For e = d + 1 To 12
            For f = e + 1 To 12
              .AddItem a & " " & b & " " & c & " " & d & " " & e & " " & f
            Next f
          Next e
        Next d
      Next c
    Next b
  Next a
  .AddItem .ListCount & " Einträge"
  .Visible = True
End With
Me.MousePointer = vbDefault
 
End Sub

Gruss,

Zardoz