VBA Excel: come eseguire il cast di un oggetto controllo generico in un oggetto ComboBox?

Question

Ho bisogno di lanciare un oggetto di controllo forma generica VBA in un oggetto ComboBox in modo che io possa aggiungere elementi ad esso. L'oggetto generico non mi permette di inserire elementi in liste esistenti

Dim ctlCurrent As MSForms.Control 
For Each ctlCurrent In frmItemInput.Controls 
    If TypeName(ctlCurrent) = "ComboBox" Then 
     Dim lbCurrentComboBox As MSForms.ComboBox 
     lbCurrentComboBox = ctlCurrent 'This is where the error occurs, when I try to convert one into another 

     ' Adiciona os itens necessários 
     lbCurrentComboBox.AddItem ("R") 
     lbCurrentComboBox.AddItem ("D") 
    End If 
Next ctlCurrent 

Il mio problema è il seguente: Ho tonnellate di ComboBoxes nella mia forma e ho bisogno di aggiungere le stesse opzioni per tutti loro. Quindi vorrei farlo in modo programmatico.

Answer 1

Si può "lanciare" un oggetto VBA utilizzando SET, ad esempio:

SET lbCurrentComboBox = ctlCurrent 

Answer 2

Se phil's answer non ha funzionato provare

SET lbCurrentComboBox = ctlCurrent.Object