🚀 go-pugleaf

Ciao ragazzi, sto' realizzando un piccolo gestionale in vb 6 enterprise,
quando l'utente accede al gestionale, gli viene mostrata
una schermata di benvenuto. In tale schermata utilizzando una semplice label
viene riportato il codice seriale dell'hard disk.
Il cliente fornendomi tale codice ottiene da parte mia un controcodice che
attiva il programma e fin qua tutto bene. La cosa pazzesca � che se creo un
nuovo progetto vb e utilizzo la stessa tecnica di programmazione per
ottenere il codice hd mi viene dato il seguente errore : Sub o function non
definita, eppure anche il progetto che funziona sfrutta la stessa funzione,
ma con un copia e incolla nel progetto nuovo non funge, come mai ??

Codice nel progetto funzionante inserito nella sezione generale

Function VolumeSerial(DriveLetter) As Long

    Dim Serial As Long

    Call GetVolumeSerialNumber(UCase(DriveLetter) & ":\", 0&, 0&, _
        Serial, 0&, 0&, 0&, 0&)
    VolumeSerial = Serial

End Function

Codice nel progetto funzionante inserito nella form load
Label1.Caption = VolumeSerial("C")

Thank's
Davide