Public Class Form1



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ' 格納するアイテム 

        Dim strDatas As String() = {"10", "20", "30"}

        ComboBox1.Items.AddRange(strDatas)

    End Sub



    ' 意図を間違えて関係のないコードを書きました。 

    ' ボタンを押すと全体に10加算します。 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ' ComboBoxのアイテム数 

        Dim iLen As Integer = ComboBox1.Items.Count



        If iLen <= 0 Then

            Return

        End If



        ' 一時的に格納 

        Dim arItems As New ArrayList()



        ' ComboBoxから取得する値 

        Dim iVal As Integer = 0

        For Each strVal As String In ComboBox1.Items

            iVal = Integer.Parse(strVal) + 10

            arItems.Add(iVal)

        Next



        ' 全アイテム消去 

        ComboBox1.Items.Clear()

        ComboBox1.BeginUpdate()

        ComboBox1.Items.AddRange(arItems.ToArray())

        ComboBox1.EndUpdate()

    End Sub



    ' 選択したアイテムを10プラスします。 

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        ' 選択番号 

        Dim iIndex As Integer = ComboBox1.SelectedIndex()

        ' 値 

        Dim iVal As Integer = Integer.Parse(ComboBox1.Items(iIndex)) + 10



        ComboBox1.Items.Remove(ComboBox1.SelectedItem)

        ComboBox1.Items.Insert(iIndex, iVal)

    End Sub

End Class