Public Class Form1
 
 
    Dim Kapsi As Char
 
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        End
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
 
 
 
        If TextBox1.Text.ToLower = "kapsi" Then
            MessageBox.Show("Access Granted!", "Log In Successful")
            Dim f As New Form()
            Me.Hide()
            f.Show()
        Else
            MessageBox.Show("Access denied!", "Log In Failed")
            End
        End If