Hola Amigos 
Bueno, tengo un problema ahora. Me ha surgido un Problema cuando abrí el Archivo de Registro que hemos tratado anteriormente. Cuando entra a Visual Basic y le doy a Run me da un Error Inesperado:
Compile error
Can´t find project or library
Y cuando le doy a Aceptar me marca en Amarillo:
Private Sub Form_Load()
El Código Corespondiente a este es el siguiente:
Private Sub Form_Load()
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.Caption = numSerie
Reg1.Text = GetSetting(App.Title, Me.Name, Reg1.Name, vbChecked)
Reg2.Text = GetSetting(App.Title, Me.Name, Reg2.Name, vbChecked)
Reg3.Text = GetSetting(App.Title, Me.Name, Reg3.Name, vbChecked)
If (Val(Reg1.Text) = (numSerie + 896576537)) And (Val(Reg2.Text) = (numSerie + 167235485)) And (Val(Reg3.Text) = (numSerie + 349824653)) Then
Unload Me
frmMain.Show
Else
MsgBox "Aplicación no Registrada en su Computador"
End If
End Sub
Peo despues me marca como Sombriado lo siguiente
unidad
Y Realmente no se porque sale ya que hace 1 Hora Funcionaba lo unico que cambio fue que le quité el Windows y se lo puse a Español el XP
Espero que me Ayude.
Saludos