VB6: Problem mit ComboBox Change

Menduso

Grünschnabel
Hi,
ich haben beim laden des Formulars eine Combobox mit Werten aus einem Recordset gefüllt:
Code:
 Dim i As Integer
 i = 1
 Me.cmbGruppen.AddItem ("")
 Do
  Me.cmbGruppen.AddItem (frmMain.gclsKonfig.Gruppe(i))
  i = i + 1
 Loop Until frmMain.gclsKonfig.Gruppe(i) = ""

Dies funktioniert soeweit auch. Jetzt will ich bei Änderungen in der Combobox immer die passenden Werte in ein Listfeld laden. Nur irgendwie geht er mir nie in die Prozedur Private Sub cmbGruppen_Change(). Meine Laderoutinen habe ich dann mal bei Private Sub cmbGruppen_LostFocus() getestet, damit ging es. Natürlich musste ich umständlich immer erst den Focus nach dem Wechsel des Wertes von der ComboBox nehmen.
Kann mir einer sagen, warum die Change Routine nicht funktioniert

Gruß Markus
 
Zurück