[dasktop]

اول اعمل فروم جديد

واضف تيكست بوكس 1

وزر

وضع الكود التالي

كود :

if textbox1.text = "12346"  then
form1.show
me.hide
end if

123456 = كلمة سر فتح البرنامج
form1 = اسم الفروم اللذي يحتوي على البرنامج المراد قفله
me.hide = اغلاق فروم فتح البرنامج



وهاذا كود حفظ كلمة السر في مستند نصي

كود :

Io.File.writealltext("c:\a.txt",string.join(vbnewline,listbox1.items.cast(of string).toarray))

فقط غير الاسم من listbox الى textbox