[boty]

جرب هذا اخي قد يفلح و قد لا يفلح للحق

PHP كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If My.Settings.dat = Nothing Then
            My.Settings.dat = Date.Now
            My.Settings.Save()

        Else
            If My.Settings.dat.Month = 12 Then

                If Val(Date.Now) = 1 Then
                    MsgBox("You cant use this programe any more")
                    End
                End If
            Else

                If (My.Settings.dat.Month + 1) < Val(Date.Now) Then


                    MsgBox("You cant use this programe any more")
                    End

                End If

               

            End If


        End If
    End Sub