Visual Basic 6 - Numero di serie

Salve,
sto facendo un programma che dovrebbe partire solo se è inserita nella porta usb la mia chiavetta.
E' possibile risalire al numero di serie della chiavetta usb inserita, tramite vb6?

riesci ad ottenere le informazioni su un drive (come il numero seriale) attraverso la funzione API GetVolumeInformation:

Private Declare Function GetVolumeInformation& Lib "kernel32" Alias _
    "GetVolumeInformationA" (ByVal lpRootPathName As String, _
    ByVal pVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, _
    lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, _
    lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, _
    ByVal nFileSystemNameSize As Long)

Mi fai un esempio come applicarlo?

segui questo:
devx.com/vb2themax/Tip/…