[Xalir]

Gib mal mehr Info's:

1. Haben die ComboBoxen Inhalt oder willst Du sie als TextBox missbrauchen?

2. Was willst Du genau erreichen? Was mir aus Deinem bisherigen Code nicht klar wird, was machst Du mit den Variablen Neu und Alt?

Public Class FooBar

Private Alt as String
Private Neu as String
Private PHIndex as Integer

'...
'Dein Code hier
'...

Sub ComboBox.SelectionChanged(..)

Dim MeineCb as ComboBox = sender

Alt = MeineCb.Item(PHIndex).ToString

PHAlt += 1
PHNeu -= 1

Neu = MeineCb.SelectedItem.ToString