Sauvegarder VB6

Bonjour,

Dans un Frame, j'ai 1 label que je déplace avec la souris en mode exécution.
Je voudrais sauver le nouvel emplacement en mode exécution avant fermeture

# ==============
Private Sub Frame1_Click()
Text1.Text = posX & " - " & posY ' affiche positions
Label1(0).Top = posY - Label1(0).Height / 2
Label1(0).Left = posX - Label1(0).Width / 2
End Sub

Private Sub Frame1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
posX = X
posY = Y
End Sub
# =============

Existe-t-il un moyen simple de sauvegarder.

Merci à qui m'aidera.