مساعدة بكود في مشروع تخرجي

هذا كود ع السريع لجعل البرنامج ديمو يعمل لعدد محدد من المرات ع الجهاز

اتمنى يفيدك اختي

retvalue = GetSetting("A", "0", "Runcount")
GD$ = Val(retvalue) + 1
SaveSetting "A", "0", "RunCount", GD$
If GD$ > 50 Then ' هنا 50 لجعله يعمل  50 مرة فقط على الجهاز 
MsgBox "انتهت صلاحية البرنامج "
Unload Me
End If

هذا كود لتغيير كلمة المرور القديمة بتقدري تتلاعبي فيه كيفما شئتي لكن هذا هو مبدئها وانتي عدلي اللي بدك اياه

MSGSave = MsgBox " Are You Sure To Change This Password?", vbQuestion+
vbMsgBoxRight+ vbYesNo, " Change Password "
If MSGSave = vbYes Then
' Update Password
SQLs = "Update[Users]Set[Password]=' " & Text4 & " ' Where [UserName]=' " &
UserName & " ' "
If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic
MsgBox " The Old Password Has Been Changed ! ", vbCritical+ vbMsgBoxRight," Save "
End If

شكرا جزيلا لك اخي على تعاونك بهذا الشكل معي

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