Private Sub frmOptions_Load(ByVal sender As Object, ByVal e As EventArgs)
       SetLanguage()
       LoadSettings()
   End Sub
 
   Private Sub LoadSettings()
       comLanguage.SelectedIndex = Properties.Settings.[Default].Language
   End Sub
 
   Private Sub SetLanguage()
       ' [...]
       Dim str2 As String() = rm.GetString("comLanguage", culture).Split("|")
       For i As Integer = 0 To comLanguage.Items.Count - 1
           comLanguage.Items(i) = str2(i)
       Next
   End Sub
 
   Private Sub comLanguage_SelectedIndexChanged(ByVal sender As Object, ByVal e _
     As EventArgs)
       Properties.Settings.[Default].Language = comLanguage.SelectedIndex
       Properties.Settings.[Default].Save()
 
       SetLanguage()
   End Sub

---
Woher soll ich wissen, was ich denke, bevor ich h?re, was ich sage?