Structure mathites
    Dim onoma As String
    Dim mathima As String
    Dim vathmo As Double

End Structure

Module Module1

    Sub Main()
        Dim mathiths1 As mathites
        mathiths1.onoma = "Κώστας"
        mathiths1.mathima = "Αγγλλικά"
        mathiths1.vathmo = 13.5

        Dim students(10) As mathites
        Dim studentList As New List(Of mathites)

    End Sub

End Module

