اول اعمل فروم جديد
واضف تيكست بوكس 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