Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim newCombo As Threading.Thread = New Threading.Thread(AddressOf NewText)
newCombo.Start()
End Sub
Sub NewText()
Me.ComboBox1.Text = Mid(ComboBox1.SelectedItem, 1, 2)
End Sub