الباسورد للمستخدمين

اخى العزيز العملية سهلة و بسيطة للغاية

نفرض ان الtextbox الذى تدخل فيه الباسوورد هو txtpassword و الفورم الذى تريد ان تظهرها هى form1,form2,form3

يكون الكود كالتالى

dim x as new form1
dim y as new form2
dim z as new form3
select case txtpassword.text
case is ="1":x.show
case is ="2":y.show
case is ="3":z.show
caes else :msgbox("Invalid password")
end select

لا تنسانى بصالح الدعاء