Zamana Göre Parola Gir(VB)

DERS NOTU

Public Class Form1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
MsgBox("Üzgünüz süre doldu...")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "şifre_sır" Then
Timer1.Enabled = False
MsgBox("programa hoşgeldiniz!!")
Else
MsgBox("üzgünüm, parolanız tanımsız..ve yeniden deniyiz.")
End If
End Sub
End Class