Свойство в basic

[goshanoob]

Приветик всем! Я тут курсовой наваял и типа в нём мне нужно указать пример Свойства. Я всегда думал, что это имеющий имя атрибут объекта. Но может свойство класса имеет другой смысл? Кароче, где у меня тут свойство хоть одно?

  

Public Class file
   
    Dim a4, a5, i, a3, n, n1, n2, byj, k, j, tmp, tmp1, sum, sum_, sr, ro As Integer
    Dim a1, a2, vismas, koman, koman_, path1 As String


    Dim Mas1(), Mas2(), mas5(), a As String
    Dim mas3(), Mas4(1000) As Integer

    Public Sub New(ByVal path As String)
        vypil(path)
    End Sub 'New

    Public Sub New()
    End Sub 'New


    Public Sub New(ByVal a1 As String, ByVal a2 As String, _
  ByVal a3 As Integer, ByVal a4 As Integer, ByVal a5 As Integer, ByVal delite As Integer, ByVal path As String)

        
        If delite <> 0 Then My.Computer.FileSystem.DeleteFile(path & "result.txt")

        FileOpen(1, path & "result.txt", OpenMode.Append) 
        Write(1, a1)
        Write(1, a2)
        Write(1, a3)
        Write(1, a4)
        Write(1, a5)

        FileClose(1)

    End Sub


    Public Function vypil(ByVal path As String)
        path1 = path & "result.txt" 

        FileOpen(1, path & "result.txt", OpenMode.Input)  

       
        n = -1
        Do While Not EOF(1)
            n = n + 1
           
            Input(1, a1)
            ReDim Preserve Mas1(n)
            Mas1(n) = a1
            n = n + 1

            Input(1, a2)
            ReDim Preserve Mas1(n)
            Mas1(n) = a2
            n = n + 1

            Input(1, a3)
            ReDim Preserve Mas1(n)
            Mas1(n) = a3
            n = n + 1

            Input(1, a4)
            ReDim Preserve Mas1(n)
            Mas1(n) = a4
            n = n + 1

            Input(1, a5)
            ReDim Preserve Mas1(n)
            Mas1(n) = a5

        Loop
        FileClose(1)

      
        Mas4 = rrrr(Mas1, n)

        FileOpen(2, path & "result2.txt", OpenMode.Output)
        j = 0

        For i = 0 To n / 5 - 1
            Write(2, "Место " & Mas4(i) + 1)

            Write(2, Mas1(j))
            j = j + 1
            Write(2, Mas1(j))
            j = j + 1
            Write(2, Mas1(j))
            j = j + 1
            Write(2, Mas1(j))
            j = j + 1
            Write(2, Mas1(j))
            j = j + 1

        Next i
        FileClose(2)

        Return Mas1

    End Function