Private Sub cmdNext_Click()
  Call Process_Next
End Sub
Private Sub Process_Next()
   '
   For i =  1  To pctWizard.Count -  1 
      '
      If pctWizard.Item(i -  1 ).Visible = True Then
         pctWizard.Item(i -  1 ).Visible = False
         pctWizard.Item(i).Visible = True
         If i =  1  Then
            Call Fill_Availeble
            Exit For
         End If
         '
         If i =  2  Then
            Call Copy_Items
            Exit For
         End If
      End If
      '
   Next
   '
End Sub