dim z1 as byte, z2 as byte, z3 as byte, z4 as byte, z5 as byte, z6
for z1=1 to 12
 for z2=1 to 12
  if z2<>z1 then
   for z3=1 to12
    if z3<>z1 and z3<>z2 then
     for z4=1 to 12
      'und so weiter und so weiter
     next z4
    end if
   next z3
  end if
 next z2
next z1
 
'das ganze dann bis z6

Mfg
Gor!k!