Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim ff As Integer = FreeFile()
        FileOpen(ff, "mio path", OpenMode.Output)
        For i = 0 To Lavori.Length - 1
            PrintLine(ff, Lavori(i).A & ";" & Lavori(i).B)
        Next
        FileClose(ff)

    End Sub