Private Sub ComboBox2_SelectedIndexChanged _
       (sender As System.Object, e As System.EventArgs) _
       Handles ComboBox2.SelectedIndexChanged
 
        If ComboBox2.SelectedIndex >= 0 Then
            Dim t As String = _
            CType(ComboBox2.Items(ComboBox2.SelectedIndex), String)
            SendKeys.Send(t)
        End If
 
End Sub