Option Explicit
Dim mySetup As String

<font color=green>' Speichern der Einstellungen</font>
Private Sub Form_Unload(Cancel As Integer)
  Dim i As Integer
 
  mySetup = ""
  For i = 0 To Combo1.UBound
    mySetup = mySetup & CStr(Combo1(i).ListIndex)
  Next i
End Sub

<font color=green>' Einstellungen setzen</font>
Private Sub Form_Load()
  Dim i As Integer
 
  If mySetup <> "" Then
    For i = 0 To Combo1.UBound
      Combo1(i).ListIndex = Val(Mid$(mySetup, i, 1))
    Next i  
  End If
End Sub