Private Sub Hauptmenü_FormClosing(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
          My.Settings.ComboBox = Optionen.cb_Sprache.Text
         My.Settings.Save()
    End Sub

 Private Sub Hauptmenü_Load(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles MyBase.Load
           Optionen.cb_Sprache.Text = Optionen.Settings.ComboBox