BUTONSUZ ŞİFRE DOĞRULAMA

Public Class Form1

    Dim sifre As String

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        sifre = TextBox1.Text

        If sifre = "ercan" Then

            Form2.Show()

        End If

    End Sub

End Class