Permutasi vb6

Option Explicit
Dim id As
Integer Dim N As Integer Dim perm() As Integer
Function
Engine(i As Integer)    Dim t As Integer    Dim j As Integer
     id = id + 1    perm(i) = id    If (id = N) Then
stampaj    For j = 1 To N       If (perm(j) = 0) Then
         Engine (j)       End If    DoEvents    Next j
   id = id – 1    perm(i) = 0 End Function
Private Sub
cmdClear_Click()   List1.