[emamtron2014]

ارجو المساعده في هذا الكود ضروررررررررري
 انا بحثت ووجدت كود يجعل البرنامج يعمل لعدد مرات معينه وبعد ذلك يطلب سريال معين علشان البرنامج يتفعل
ولكن الكود لا يعمل فارجو المساعده لمن عندي الحل ضروري
وهذا هو الكود

Dim a = Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\ahmedsalah", "t", "")
    Dim a_ = Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\ahmedsalah", "A", "OFF")

    Private Sub fORM1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If a_ Is Nothing Then
            Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ahmedsalah", "A", "OFF")
        End If
        If a_ = "OFF" Then
            If a Is Nothing Then
                Microsoft.Win32.Registry.CurrentUser.CreateSubKey("ahmedsalah")
                Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ahmedsalah", "t", "3")
                Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ahmedsalah", "s", "xxxx")
                Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ahmedsalah", "A", "OFF")
            Else
                If a = "0" Then
                    Me.Hide()
                    MsgBox("انتهت فتره استخدامك للبرنامج")
                    frmSerialNumber.Show()

                Else
                    a = a - 1
                    Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ahmedsalah", "t", a)
                    MsgBox("باقي لك علي استخدامك للبرنامج  " & a & "مره")
                End If

            End If
        Else
        End If
    End Sub