يحتوي على مجموعة من الاكواد المهمة لكل شخص يحتاج الفجول هذه الاكواد بين يديك تأليف: م.احمد تكليف الحساني كود لجعل برنامجك تجريبيا Public Class Form1 Dim T As Boolean Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load T = False Dim RegX As Microsoft.Win32.RegistryKey RegX = Microsoft.Win32.Registry.CurrentUser Dim S As String() = RegX.GetSubKeyNames For Each A As String In S If A = "smp3" Then T = True End If Next If T = True Then RegX = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("smp3", True) Dim x As Integer = RegX.GetValue("val") x = x + 1 RegX.SetValue("val", x) If x = 5 Or x > 5 Then MsgBox(" ىقذ ا رّ دٖ ذٍذل لاعرخذا اىثش اّ طٍ , يشظٚ الاذصاه تفشيق اىذػ ى ؼَشفح ميفيح اىششاء ") Application.Exit() End If Else RegX = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("smp3") RegX.SetValue("val", 1) End If End Sub End Class