Hola Amigos 
Estoy Realizando un Programita para Generar el Serial pues el cliente me enviaría a mí el Código y yo despues le envíaria ya el Serial.
El Diseño que estoy haciendo es el Siguiente.
Y el Código que le tengo puesto es el Siguiente:
Código HTML:
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)
Private Sub cmdGenerar_Click()
Dim cad1 As String * 256
Dim cad2 As String * 256
Dim numSerie As Long
Dim longitud As Long
Dim flag As Long
unidad = "C:\"
Call GetVolumeInformation(unidad, cad1, 256, numSerie, longitud, flag, cad2, 256)
Primera.Text = numSerie
registro1.Text = (numSerie + 1500) & ""
registro2.Text = (numSerie + 1600) & ""
registro3.Text = (numSerie + 1900) & ""
End Sub
Private Sub cmdSalir_Click()
If MsgBox("¿Está usted seguro que desea Salir de SerialZax?", _
vbQuestion + vbYesNo, "Pregunta") = vbYes Then
End
End If
End Sub
Pero el Problema esta en que Cuando le doy a Generar es decir al Boton de Generar el pone el ID del Disco mio no del Codigo que yo necesito que genere la Clave.
Espero que me Ayuden.
Saludos