メッセージボックスのボタン名の変更

Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'すべてのカルチャ情報（＝CultureInfoオブジェクトの配列）を取得
    Dim cultures() As System.Globalization.CultureInfo = _
                    System.Globalization.CultureInfo.GetCultures(CultureTypes.AllCultures)

    'ComboBoxに取得したカルチャ情報を設定する
    Me.CultureListComboBox.DataSource = cultures

    'CultureInfoオブジェクトのDisplayNameプロパティの値が
    'ComboBoxのリストに表示されるように設定する
    Me.CultureListComboBox.DisplayMember = "DisplayName"
End Sub

'現在のカルチャをメッセージボックスで表示する
Private Sub GetButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GetButton.Click
    MessageBox.Show(Thread.CurrentThread.CurrentCulture.NativeName, _
                    Thread.CurrentThread.CurrentUICulture.ToString, _
                    MessageBoxButtons.OKCancel, _
                    MessageBoxIcon.Question, _
                    MessageBoxDefaultButton.Button1)
End Sub

'コンボボックスで選択されたカルチャに変更する
Private Sub SetButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SetButton.Click
    'Dim asm As [Assembly] = [Assembly].GetExecutingAssembly()
    'Dim ci As System.Globalization.CultureInfo = asm.GetName().CultureInfo

    '選択されているカルチャ情報を取得する
    Dim culture As System.Globalization.CultureInfo = _
                    CType(Me.CultureListComboBox.SelectedItem, System.Globalization.CultureInfo)

    Try
        Thread.CurrentThread.CurrentCulture = _
                      System.Globalization.CultureInfo.CreateSpecificCulture(culture.ToString)
        'Windowsフォームのリソースに対応したUIカルチャを設定する
        Thread.CurrentThread.CurrentUICulture = culture
    Catch ex As Exception
        MessageBox.Show(ex.Message)
        Return
    End Try
End Sub