Sub viewclass()
        'In this sub the user enters in a class name.
        'If the class exists then the teacher of the class is displayed  (SQL required for this)
        'also a list of the pupils in the class is displayed (SQL required for this)

        Dim name As String
        Dim count As Integer = 0
        Dim ClassList(10) As Classes
        Dim tempPupils(100) As pupil
        Dim numofPupils As Integer = -1
        Dim found As Boolean = False
        Console.WriteLine("View Class Information")
        Console.WriteLine()
        Console.WriteLine("Enter Class name:")
        name = Console.ReadLine
        found = findclass(ClassList, name, count)
        If found = True Then
            Console.WriteLine()
            Console.WriteLine("Name:  " & ClassList(count).name)
            Console.WriteLine("Teacher: " & ClassList(count).teacher)
            Console.WriteLine()
            If findPupilsForClass(ClassList(count).id, tempPupils, numofPupils) Then
                For i = 0 To numofPupils
                    Console.WriteLine("Pupil Name:   " & tempPupils(i).forename & " " & tempPupils(i).surname)
                    Console.WriteLine("Pupil House: " & tempPupils(i).house)
                    Console.WriteLine("Pupil Age: " & tempPupils(i).age)
                    Console.WriteLine()
                Next
            Else
                Console.WriteLine("This class does not have any pupils")
            End If
        End If
        Console.WriteLine()
        Console.WriteLine("Press enter to return to menu")
        Console.ReadKey()
    End Sub