Visual Basic GUI with Codes for User Log-in

Public Class Form1

   

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Button1.Tag = 1 Then
            Me.Height = 188
            Button1.Tag = 0
            Button1.Text = "KEYPAD"
        ElseIf Button1.Tag = 0 Then
            Me.Height = 496
            Button1.Text = "CLOSE"
            Button1.Tag = 1
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Button2.Tag = 0 Then
            Button4.Tag = 1
            Button5.Tag = 1
            Button6.Tag = 1
            Button7.Tag = 1
            Button8.Tag = 1
            Button9.Tag = 1
            Button10.Tag = 1
            Button11.Tag = 1
            Button12.Tag = 1
            Button13.Tag = 1
            Button14.Tag = 1
            Button15.Tag = 1
            Button16.Tag = 1
            Button17.Tag = 1
            Button18.Tag = 1
            Button19.Tag = 1
            Button20.Tag = 1
            Button21.Tag = 1
            Button22.Tag = 1
            Button23.Tag = 1
            Button24.Tag = 1
            Button25.Tag = 1
            Button26.Tag = 1
            Button27.Tag = 1
            Button28.Tag = 1
            Button29.Tag = 1
            Button30.Tag = 1
            Button31.Tag = 1
            Button32.Tag = 1
            Button33.Tag = 1
            Button34.Tag = 1
            Button35.Tag = 1
            Button36.Tag = 1
            Button37.Tag = 1
            Button38.Tag = 1
            Button39.Tag = 1
            Button41.Tag = 1
            Button2.Tag = 1
            TextBox2.Focus()
        ElseIf Button2.Tag = 1 Then
            Button4.Tag = 0
            Button5.Tag = 0
            Button6.Tag = 0
            Button7.Tag = 0
            Button8.Tag = 0
            Button9.Tag = 0
            Button10.Tag = 0
            Button11.Tag = 0
            Button12.Tag = 0
            Button13.Tag = 0
            Button14.Tag = 0
            Button15.Tag = 0
            Button16.Tag = 0
            Button17.Tag = 0
            Button18.Tag = 0
            Button19.Tag = 0
            Button20.Tag = 0
            Button21.Tag = 0
            Button22.Tag = 0
            Button23.Tag = 0
            Button24.Tag = 0
            Button25.Tag = 0
            Button26.Tag = 0
            Button27.Tag = 0
            Button28.Tag = 0
            Button29.Tag = 0
            Button30.Tag = 0
            Button31.Tag = 0
            Button32.Tag = 0
            Button33.Tag = 0
            Button34.Tag = 0
            Button35.Tag = 0
            Button36.Tag = 0
            Button37.Tag = 0
            Button38.Tag = 0
            Button39.Tag = 0
            Button41.Tag = 0
            Button2.Tag = 2
            If TextBox1.Text = "elgie" And TextBox2.Text = "yehey" Then
                Form2.Show()
                Me.Hide()
            ElseIf TextBox1.Text = "aray" And TextBox2.Text = "naku" Then
                Form3.Show()
                Me.Hide()
            End If
        End If
     
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Button4.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "a"
        ElseIf Button4.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "a"
        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If Button5.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "b"
        ElseIf Button5.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "b"
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If Button6.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "c"
        ElseIf Button6.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "c"
        End If
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If Button7.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "d"
        ElseIf Button7.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "d"
        End If
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If Button8.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "e"
        ElseIf Button8.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "e"
        End If
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If Button9.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "f"
        ElseIf Button9.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "f"
        End If
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        If Button10.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "g"
        ElseIf Button10.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "g"
        End If
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        If Button11.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "h"
        ElseIf Button11.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "h"
        End If
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        If Button12.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "i"
        ElseIf Button12.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "i"
        End If
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        If Button13.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "j"
        ElseIf Button13.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "j"
        End If
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        If Button14.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "k"
        ElseIf Button14.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "k"
        End If
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        If Button15.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "l"
        ElseIf Button15.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "l"
        End If
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        If Button16.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "m"
        ElseIf Button16.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "m"
        End If
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        If Button17.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "n"
        ElseIf Button17.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "n"
        End If
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        If Button18.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "o"
        ElseIf Button18.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "o"
        End If
    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        If Button19.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "p"
        ElseIf Button19.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "p"
        End If
    End Sub

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
        If Button20.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "q"
        ElseIf Button20.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "q"
        End If
    End Sub

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
        If Button21.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "r"
        ElseIf Button21.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "r"
        End If
    End Sub

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
        If Button22.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "s"
        ElseIf Button22.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "s"
        End If
    End Sub

    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
        If Button23.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "t"
        ElseIf Button23.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "t"
        End If
    End Sub

    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
        If Button24.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "u"
        ElseIf Button24.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "u"
        End If
    End Sub

    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
        If Button25.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "v"
        ElseIf Button25.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "v"
        End If
    End Sub

    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
        If Button26.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "w"
        ElseIf Button26.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "w"
        End If
    End Sub

    Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
        If Button27.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "x"
        ElseIf Button27.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "x"
        End If
    End Sub

    Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click
        If Button28.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "y"
        ElseIf Button28.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "y"
        End If
    End Sub

    Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click
        If Button29.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "z"
        ElseIf Button29.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "z"
        End If
    End Sub

    Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click
        If Button30.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "0"
        ElseIf Button30.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "0"
        End If
    End Sub

    Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click
        If Button31.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "1"
        ElseIf Button31.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "1"
        End If
    End Sub

    Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click
        If Button32.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "2"
        ElseIf Button32.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "2"
        End If
    End Sub

    Private Sub Button33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button33.Click
        If Button33.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "3"
        ElseIf Button33.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "3"
        End If
    End Sub
    Private Sub Button34_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button34.Click
        If Button34.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "4"
        ElseIf Button34.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "4"
        End If
    End Sub
    Private Sub Button35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button35.Click
        If Button35.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "5"
        ElseIf Button35.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "5"
        End If
    End Sub

    Private Sub Button36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button36.Click
        If Button36.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "6"
        ElseIf Button36.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "6"
        End If
    End Sub

    Private Sub Button37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button37.Click
        If Button37.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "7"
        ElseIf Button37.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "7"
        End If
    End Sub

    Private Sub Button38_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button38.Click
        If Button38.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "8"
        ElseIf Button38.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "8"
        End If
    End Sub

    Private Sub Button39_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button39.Click
        If Button39.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & "9"
        ElseIf Button39.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & "9"
        End If
    End Sub

    Private Sub Button41_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button41.Click
        If Button41.Tag = 0 Then
            TextBox1.Text = TextBox1.Text & " "
        ElseIf Button41.Tag = 1 Then
            TextBox2.Text = TextBox2.Text & " "
        End If
    End Sub

    Private Sub Button40_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button40.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
    End Sub
End Class