Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        Me.ComboBox1.DataSource = [Enum].GetValues(GetType( _
        Beschaeftigungsverhaeltnisse))
        Dim cvalue As Beschaeftigungsverhaeltnisse = _
        My.Settings.Beschaeftigungsverhaeltnisse
        Me.Label1.Text = cvalue.ToString()
        Me.ComboBox1.SelectedItem = cvalue
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        My.Settings.Beschaeftigungsverhaeltnisse = Me.ComboBox1.SelectedItem
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist