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

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

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