codice:
Imports System.IO
PublicClassForm1
PrivateSub Form1_Load(sender AsObject, e AsEventArgs) HandlesMyBase.Load
Dim x = 12
Dim y = 12
ForEach Dir AsStringInDirectory.GetDirectories("C:\simbolico") 'questa direcorty rimarrà sempre fissa ed è dove l'utente metterà le 10 cartelle delle categorie
 　
Dim Dir2 = (Dir.Remove(0, 13)) 'taglio la parte inerente al percorso che non mi serve e tengo il nome della cartella
'creo un bottone in modo ricorsivo che ha come nome e come testo il nome della cartella
Dim myBottone AsNewButton
            myBottone.Text = (Dir2)
            myBottone.Location = New System.Drawing.Point(x, y)
myBottone.Name = (Dir2)
myBottone.Width = (417)
myBottone.Height = (76)
　
Me.Controls.Add(myBottone)
            y = y + 100
　
Next