'UserForm1
Private Sub UserForm_Initialize()
Dim test As clsCB
Set test = New clsCB
Set test.DerCmd = ComboBox1
With ComboBox1
.AddItem "X"
.AddItem "O"
.AddItem "G"
End With
End Sub
Wenn diese Prozedur verlassen wird ist die Variable test nicht mehr existent, ergo kann auch kein Event gefeuert werden.
Darum:
'UserForm1
Private test As clsCB
Private Sub UserForm_Initialize()
Set test = New clsCB
Set test.DerCmd = ComboBox1
With ComboBox1
.AddItem "X"
.AddItem "O"
.AddItem "G"
End With
End Sub
|