Sub LOAD_Param
Dim List1 As List
Dim MySet1, MySet2 As Double
If File.Exists(File.DirInternal,FileSETTINGS) Then
List1 = File.ReadList(File.DirInternal,FileSETTINGS)
MySet1 = Location.Get(0)
MySet2 = Location.Get(1)
'Affiche
LblSet1.Text = MySet1
LblSet2.Text = MySet2
End If
End Sub