[e-coder]

سلام عليكم

واجهت مشكلة في الكود هذا

صورة المشكلة

الكود

PHP كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If My.Application.Deployment.IsFirstRun Then ' المشكلة هنا
            My.Settings.Expiration_Date = Now.Date
            My.Settings.Save()
        End If
        If DateDiff(DateInterval.Day, Now, My.Settings.Expiration_Date) > 3 Then '3 is the expiration date
            Dim Response As String = "~"
            While Response <> "Password here" And Response <> Nothing
                Response = InputBox("The 3 day trial is up! Please enter a password to continue using this software!", "Trial")
            End While
            If Response = Nothing Then End 'A crude, but effective, way of forcing a close
        End If
        Me.Hide()
        Form2.Show() 'If it passes all the tests, start the main program
    End Sub 


المشروع بالمرفقات