قفل شدن برنامه بعد از سه بار ورود اشتباه پسورد

[MicrosoftH]

یک متغیر تعریف کن اگر رمز اشتباه بود یک واحد بهش اضافه کن بعد یک دستور if بنویس اگر متغیر برابر با 3 بود تمامی کنترل ها رو غیرفعال کن به همین راحتی

[MicrosoftH]

بیا اینم کد راستی این رو تو کافی نت نوشتم اشتباه بود ببخشید دیگه
dim Err1 as byte
if txtpassword.text<>"159" then
err1=err1+1
if err1=3 then
me.enable=false
endif
else
frmmain.show
endif