Private Sub salva_Click()
a = "[Info]"
b = "Name ="

Open App.Path & "\Stage_prova.def" For Append As #1
Write #1, a
Close #1

Open App.Path & "\Stage_prova.def" For Append As #1
Write #1, b, Text1
Close #1

Open App.Path & "\Stage_prova.def" For Append As #1
Write #1, Frame1.Caption
Close #1

Open App.Path & "\Stage_prova.def" For Append As #1
Write #1, Label2, Text2
Close #1

Open App.Path & "\Stage_prova.def" For Append As #1
Write #1, Label3, Text3
Close #1

Open App.Path & "\Stage_prova.def" For Append As #1
Write #1, Label4, Text4
Close #1

Open App.Path & "\Stage_prova.def" For Append As #1
Write #1, Label5, Text5
Close #1

Open App.Path & "\Stage_prova.def" For Append As #1
Write #1, Label6, Text6
Close #1

Open App.Path & "\Stage_prova.def" For Append As #1
Write #1, Label7, Text7
Close #1

Open App.Path & "\Stage_prova.def" For Append As #1
Write #1, Label8, Text8
Close #1

Open App.Path & "\Stage_prova.def" For Append As #1
Write #1, Label9, Text9
Close #1

Open App.Path & "\Stage_prova.def" For Append As #1
Write #1, Label10, Text10
Close #1

MsgBox "Salvataggio riuscito correttamente!!!"
End Sub