[VB 2008] Protezione programma

[eziogsv]

Premesso che gli End vanno tolti, io per prima cosa, in fase di debug, mi accerterei che effettivamente esca alla prima USB con dei vecchi cari Debug.Print...

Debug.Print ("Ok, i Drives attuali sono: " & My.Computer.FileSystem.Drives.Count.ToString)
For Each Drive In My.Computer.FileSystem.Drives
Debug.Print ("Trovato il Drive: " & Drive.Name)

If Drive.DriveType = IO.DriveType.Removable Then
Debug.Print ("Confermo che " & Drive.Name & " è un drive USB")

poi... si vedrà