Programmiersprache? / Codinglanguage?

ublic Class LanguagePatcher
    Private Sub LanguagePatcher_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        If My.Computer.Registry.GetValue("HKEY_CURRENT_USER\SOFTWARE\Valve\Steam", "Language", True) = "german" Then
            My.Settings.ProgramLanguage = "Deutsch"
            ProgramLanguageBox.Text = "Deutsch"
        ElseIf My.Computer.Registry.GetValue("HKEY_CURRENT_USER\SOFTWARE\Valve\Steam", "Language", True) = "english" Then
            My.Settings.ProgramLanguage = "English"
            ProgramLanguageBox.Text = "English"
        ElseIf My.Computer.Registry.GetValue("HKEY_CURRENT_USER\SOFTWARE\Valve\Steam", "Language", True) = "french" Then
            My.Settings.ProgramLanguage = "Français"
            ProgramLanguageBox.Text = "Français"
        ElseIf My.Computer.Registry.GetValue("HKEY_CURRENT_USER\SOFTWARE\Valve\Steam", "Language", True) = "polish" Then
            My.Settings.ProgramLanguage = "Polski"
            ProgramLanguageBox.Text = "Polski"
        ElseIf My.Computer.Registry.GetValue("HKEY_CURRENT_USER\SOFTWARE\Valve\Steam", "Language", True) = "russian" Then
            My.Settings.ProgramLanguage = "Русский"
            ProgramLanguageBox.Text = "Русский"
        ElseIf My.Computer.Registry.GetValue("HKEY_CURRENT_USER\SOFTWARE\Valve\Steam", "Language", True) = "dutch" Then
            My.Settings.ProgramLanguage = "Nederlands"
            ProgramLanguageBox.Text = "Nederlands"
        ElseIf My.Computer.Registry.GetValue("HKEY_CURRENT_USER\SOFTWARE\Valve\Steam", "Language", True) = "spanish" Then
            My.Settings.ProgramLanguage = "Español"
            ProgramLanguageBox.Text = "Español"
        ElseIf My.Computer.Registry.GetValue("HKEY_CURRENT_USER\SOFTWARE\Valve\Steam", "Language", True) = "danish" Then
            My.Settings.ProgramLanguage = "Dansk"
            ProgramLanguageBox.Text = "Dansk"
        ElseIf My.Computer.Registry.GetValue("HKEY_CURRENT_USER\SOFTWARE\Valve\Steam", "Language", True) = "italian" Then
            My.Settings.ProgramLanguage = "Italiano"
            ProgramLanguageBox.Text = "Italiano"
        End If



        PictureBox.Image = My.Resources.Steam___Language_Patcher___Main_Backgroundimage
        MusicCheckBox.Checked = False
        PatcherLanguageBox.Text = My.Settings.PatcherLanguage
    End Sub