Public pdMwST As Double
[color=green]' p = Public, d = Double

[color=green]' GetSetting(appname, section, key[, default])
 
pdMwST = GetSetting("MeinProg", "Settings", "MwST", "17")

Private Sub Form_Load()
  txtMwST.Text = pdMwST
End Sub
 
Private Sub cmdOK_Click()
  [color=green]' SaveSetting appname, section, key, setting
 
  SaveSetting "MeinProg", "Settings", "MwST", txtMwST.Text
  pdMwST = txtMwST.Text
  Unlaod Me
End Sub
 
Private Sub cmdAbbrechen_Click()
  Unload Me
End Sub

Gruß
Marcus