Private Sub cmbTest_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles cmbTest.SelectedIndexChanged
 
        Dim instance As ComboBox = cmbTest
        Dim value As Integer
 
        value = instance.SelectedIndex
 
        Dim str As String = cmbTest.Items(value).ToString
 
        Me.label1.text = str
 
    End Sub