مساعدة بخصوص كود حماية للبرنامج

السلام عليكم

اخوانى بخصوص هذا الكود

Private Sub cmdprint_Click()
If TxtActivationNO.Text <> "" And IsNumeric(TxtActivationNO.Text) Then
If TxtActivationNO.Text = Val(GetSerialNumber("C:\")) * 3 Then
SaveSetting App.Title, "activationCode", "activationNo", TxtActivationNO
CN.Execute "update company set company_name=" & txtcompanyname.Text & ",Shop_name=" & txtshopname.Text & ",address=" & txtaddress.Text
MsgBox "Registration is succeeded ", vbInformation
End
Else
MsgBox "Registration is not succeeded ", vbCritical
End If
End If
End Sub

Private Sub Form_Load()
txtregNo.Text = Val(GetSerialNumber("C:\"))
End Sub

كيف يمكن معرفة رقم التسجيل بناءا على رقم السيريل للهارد وشكرا

MyCode.rar