Private Sub chen(sender As Object, e As EventArgs)
For i As Integer = 0 To 10
If comboBox1.SelectedIndex = i Then
label1.Text = comboBox1.SelectedItem.ToString()
End If
Next
End Sub
Private Sub combobox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles combobox1.SelectedIndexChanged
Label1.Text = combobox1.SelectedItem
End Sub