Private Sub Form_Load()
  Dim i As Integer
 
  For i = 0 To Combo1.Ubound
    .AddItem "Bitte auswählen"
    .AddItem "Mit Kalibrierung"
    .AddItem "Ohne Kalibrierung"
 
    .ListIndex = Val(GetSetting("MyApplication", "Einstellungen", _
      "Kalibrierung" & CStr(i))
  Next i
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  Dim i As Integer
 
  For i = 0 To Combo1.UBound
    SaveSetting "MyApplication", "Einstellungen", "Kalibrierung" & CStr(i), _
      CStr(Combo1.ListIndex)