Hola Hector hay va una funcioncilla que vale para estos menesteres, Pura
api:

Declaraciones a nivel de módulo
Public Declare Function GetVolumeInformation Lib "kernel32" Alias
"GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal
lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long,
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long,
lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal
nFileSystemNameSize As Long) As Long

la función protección que nos devuelve el nº de serie de donde esté
instalado el software

Public Function PROTECCION()
 ' sintasis pro=proteccion
 Dim R, N, F, Z As String
        Dim s, SS, vv As Long

    R = Left(App.Path, 3)
    N = Space$(3)
    F = Space$(255)
    GetVolumeInformation R, N, s, vv, 255, 0, F, SS
    PROTECCION = vv

    'lee el nº de serie y lo guarda en z
End Function

Áridos Pérez Jiménez, S.L.
email.: apj@ctv.es
Web: http://www.ctv.es/USERS/apj


----------
> De: hector (HeDa) <hcormen@delta.cti.unav.es>
> A: vb-esp@ccc.uba.ar
> Asunto: Re: (VB-ESP) Proteccion de Software
> Fecha: domingo 21 de diciembre de 1997 0:59
>
> Hola. Soy Hector. HAce tiempo hablamos de como proteger programas con
visual basic de forma simple pero eficaz en la lista VB-ESP.
>
> Has encontrado alguna otra solucion para protejer nuestros humildes
programas con Visual Basic. ?
>
> Feliz Navidad
>
> ________________________________ _ _ _ _ _ _ _ _
> Héctor D. Corcín
> hcormen@arq.cti.unav.es
> http://www.yi.com/home/CorcinHector