şifreli giriş visual basicc

İlk önce visual basic i açın.Form üzerine bi tane sifre adında textbox1 ve tamam adın da Command1 butonu eklleyin ve aşağıda ki kodu kopyalayın..


Private Sub tamam_Click()

if sifre.text="DAGARSLAN" then
msgbox "Şifre Doğru Giriş Onaylandı",8,"Giriş Tamam"
form2.show
form1.hide
else
msgbox "Şifreyi Bilemediniz!!!",6,"Byes"
end 'Programı Kapatıyozz
end sub