Sub LoginUser()
        Console.WriteLine("Enter username: ")

        Dim searchCriteria As String = Console.ReadLine
        Console.WriteLine("Enter Password: ")

        Dim searchcriteria2 As String = Console.ReadLine
        For i = 0 To userdb.Length - 1
            If userdb(i).password = searchcriteria2 And userdb(i).username = searchCriteria Then
                Console.WriteLine(userdb(i).id.ToString + ": " + userdb(i).username)
            End If

        Next
        Console.WriteLine("Which form; enter id: ")
        activeUser = userdb(Console.ReadLine())
        For i = 0 To userdb.Length - 1

        Next
        Dim counter As Integer = 0
        If counter = 0 Then
            Console.WriteLine("Nothing found")

        End If
        If counter = 1 Then
            Exit Sub
            activeUser = userdb(Console.ReadLine())
        End If
        If counter > 1 Then
            Console.WriteLine("Which user: ")
            activeUser = userdb(Console.ReadLine())
        End If
    End Sub
    Sub Loginform()
        Console.WriteLine("Enter username: ")

        Dim searchCriteria As String = Console.ReadLine
        For j = 0 To formdb.Length - 1
            If searchCriteria = formdb(j).name Then
                Console.WriteLine("Enter Password: ")

                Dim searchcriteria2 As String = Console.ReadLine
                If searchcriteria2 = formdb(j).password Then

                    For i = 0 To formdb.Length - 1
                        If formdb(i).password = searchcriteria2 And formdb(i).name = searchCriteria Then
                            Console.WriteLine(formdb(i).id.ToString + ": " + formdb(i).name)
                        End If

                    Next
                Else


                End If
            End If
        Next
        Console.WriteLine("Which form; enter id: ")
        formuser = formdb(Console.ReadLine())
        For i = 0 To formdb.Length - 1

        Next
    End Sub