Private Sub Form_Load()
  ' Werte aus Registry lesen, falls vorhanden
  Text1.Text = GetSetting("MyApp", "Berechnung", "x1", "")
  Text2.Text = GetSetting("MyApp", "Berechnung", "x2", "")
  Text3.Text = GetSetting("MyApp", "Berechnung", "y1", "")
  Text4.Text = GetSetting("MyApp", "Berechnung", "y2", "")
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  ' Werte aus TextBoxen für den nächsten Programmstart speichern
  SaveSetting "MyApp", "Berechnung", "x1", Text1.Text
  SaveSetting "MyApp", "Berechnung", "x2", Text2.Text
  SaveSetting "MyApp", "Berechnung", "y1", Text3.Text
  SaveSetting "MyApp", "Berechnung", "y2", Text4.Text
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de