I have a small application that users use to update information in AD. If the information has already been set, it should display the existing properties, and if not, give the user a drop down combobox to select from. This works fine as an English language application, with static text & options in the ComboBox. I'd now like to extend this as a mutli-language application (French, Italian, German & Spanish).
I'm using 'Thread.CurrentThread.CurrentCulture.Name' to get the OS language. Based on this, I then set the forms text labels & ComboBox options to one of the languages. i.e.
##Get language and set text variables to language

Private Function Language() As ADProperties
        Dim OSLanguage As String = Thread.CurrentThread.CurrentCulture.Name
        If OSLanguage = "en-GB" Then
            Language.SubmitBtn = "Submit"
            Language.ExitBtn = "Exit"
            Language.ComboQuestion1 = "Question 1"
            Language.ComboQuestion1 = "Question 2"
ElseIf OSLanguage = "it-IT" Then
            Language.SubmitBtn = "Confermare"
            Language.ExitBtn = "Esci"
            Language.ComboQuestion1 = "Questione 1"
            Language.ComboQuestion1 = "Questione 2"
End If

Select allOpen in new window

I then need to populate the ComboBox with these questions, currently I'm using:
##Populate ComboBox

Private Sub Q3ComboBox_MouseClick(sender As Object, e As MouseEventArgs) Handles Q3ComboBox.MouseClick
ComboBox1.Items.Add(Language.ComboQuestion1)
ComboBox1.Items.Add(Language.ComboQuestion2)
End Sub

Select allOpen in new window

However, the issue with this is that if you click on the combobox more than once, it re-add the options again, so if you have 10 options, the second click you get 20, then 3rd click 30. I've tried using ComboBox1.Items.Clear() above all the ComboBox1.Items.Add() options to remove them first, but it doesn't seem to work.

 
How can I build the ComboBox without the list growing on every click?

Once a user has entered their selection and submitted it, AD is updated with their selections (written to 'extensionAttribute3-10'). If a user re-runs the program it pulls this information back out and pre-fills the ComboBox using ComboBox.SelectedItem. When the user makes any changes, even to just a single combobox, and presses submit, it should re-submit all the information again. This worked fine when the ComboBoxes were static. However since using the dynamic ComboBoxes above, this no longer works, even though it displays the information pulled from AD as the selected option text, when you press submit, it pops up asking you to select an option from that ComboBox, so you have to click and select it again, so it's as if the Combobox.SelectedItem isn't being set correctly! So you can see in the attached pic, 'Security Question 1' is pre-filled with information pulled from AD. When I press submit, it doesn't recognise that there's a value. I've tried setting ComboBox1.ValueMember, ComboBox1.SelectedValue, ComboBox1.SelectedItem, ComboBox1.SelectedText

##Get information from AD and set variables
    Private Function GetUserProperties() As ADProperties
        Dim ADName As String = GetLogonName()
        Dim bSuccess As Boolean = False
        Dim dirEntry As DirectoryEntry = GetDirectoryEntry()
        Dim dirSearcher As DirectorySearcher = New DirectorySearcher(dirEntry)
        Dim waitTime As TimeSpan = New TimeSpan(0, 0, 0, 5, 0)
        dirSearcher.ClientTimeout = waitTime
        dirSearcher.Filter = ("(samAccountName=" & ADName & ")")
        dirSearcher.PropertiesToLoad.Add("extensionAttribute3")
        dirSearcher.PropertiesToLoad.Add("extensionAttribute4")
        dirSearcher.SearchScope = SearchScope.Subtree
        Try
            Dim dirResult As SearchResult = dirSearcher.FindOne()
            bSuccess = Not (dirResult Is Nothing)
            If dirResult.GetDirectoryEntry.Properties("extensionAttribute3").Value Is Nothing Then
                GetUserProperties.Three = "<Not Set>"
            Else
                GetUserProperties.Three = (dirResult.Properties("extensionAttribute3")(0).ToString())
            If dirResult.GetDirectoryEntry.Properties("extensionAttribute4").Value Is Nothing Then
                GetUserProperties.Four = "<Not Set>"
            Else
                GetUserProperties.Four = (dirResult.Properties("extensionAttribute4")(0).ToString())
            End If
            bSuccess = True
        Catch ex As Exception
            bSuccess = False
            MsgBox("No Connection to the domain.", MsgBoxStyle.Critical, "Network Error #1")
            Application.Exit()
        End Try
    End Function

##Load Form
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Dim currentADUser As System.DirectoryServices.AccountManagement.UserPrincipal
            currentADUser = System.DirectoryServices.AccountManagement.UserPrincipal.Current
            Dim DisplayName As String = currentADUser.GivenName & " " & currentADUser.Surname
            Dim ADProp As ADProperties = GetUserProperties()
            ComboBox1.SelectedItem = ADProp.Three
            ComboBox2.SelectedItem = ADProp.Four
    End Sub

##Submit & Update
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim PIN As Integer
        Dim Q1 As String = Nothing
        Dim Q2 As String = Nothing
        ElseIf IsNothing(ComboBox1.SelectedItem) Then
            MsgBox("Please Select Security Question 1", MsgBoxStyle.Exclamation, "Invalid Question")
            Question1.ForeColor = Color.Red
        ElseIf IsNothing(ComboBox2.SelectedItem) Then
            MsgBox("Please Select Security Question 2", MsgBoxStyle.Exclamation, "Invalid Question")
            Question2.ForeColor = Color.Red
         Else
            Q1 = ComboBox1.Items(Q1ComboBox.SelectedIndex)
            Q2 = ComboBox2.Items(Q2ComboBox.SelectedIndex)
            Else
                Dim dirEntry As DirectoryEntry = GetDirectoryEntry()
                Dim dirSearcher As DirectorySearcher = New DirectorySearcher(dirEntry)
                dirSearcher.Filter = "(&(objectClass=user)(objectCategory=person)(sAMAccountName=" & ADName & "))"
                dirSearcher.SearchScope = SearchScope.Subtree
                Dim searchResults As SearchResult = dirSearcher.FindOne()
                If Not searchResults Is Nothing Then
                    Dim dirEntryResults As New DirectoryEntry(searchResults.Path)
                    SetADProperty(dirEntryResults, "extensionAttribute3", Q1)
                    SetADProperty(dirEntryResults, "extensionAttribute4", Q2)
                    dirEntryResults.CommitChanges()
                    dirEntryResults.Close()
                    MsgBox("PIN & Security Questions Successfully Set", MsgBoxStyle.OkOnly, "Success")
                    Form1_Load(Me, New System.EventArgs)
                End If
                dirEntry.Close()
            End If
        End If
    End Sub

Select allOpen in new window