codice:
Dim objFSO AsObjectDim objFolder AsObject
Dim objFile AsObject
 　
        objFSO = CreateObject("Scripting.FileSystemObject")
' creo un oggetto e gli assegno la cartella in cui andare a cercare i file immagini
        objFolder = objFSO.GetFolder("C:\simbolico\animali") 'ho bisogno che questa sia una variabile, "c:\simbolico\" + il nome del pulsante cliccato ??????????????????????
'creo un ciclo in cui vengono generati i 30 pulsanti delle 30 immagini presenti nella cartella a cui faccio riferimento
ForEach objFile In objFolder.Files
Dim Dir3 = (objFile.Name)
Dim myBottone2 AsNewButton
            myBottone2.Text = (Dir3)
            myBottone2.Location = New System.Drawing.Point(x, y)
            myBottone2.Name = (Dir3)
            myBottone2.Width = (417)
            myBottone2.Height = (76)
            myBottone2.BackgroundImage = System.Drawing.Image.FromFile("C:\simbolico\animali\" + Dir3)


Me.Controls.Add(myBottone2)
            y = y + 100
Next objFile
　
EndSub
EndClass