19-05-13, 10:05 PM
إقتباس : Dim Date_enreg As Date = "12/05/2012"حاول استدعاء هدا الكود مباشرة بعد دخول العميل .
If DateDiff(DateInterval.Day, Date_enreg, Today()) > 30 Then
'هنا يمكنك استدعاء الفورم لتغيير كلمة السر او الكود المرغوب فيه
End If