VB problem - ActiveX objects on blank form

hi

can someone please help.
I have been given a project at work to do and im stuck with a couple of things.

The previous coder has used activex controls on blank forms.
The first control is ctlProductInformation.ctl.
This control contains a combo box called cmbSupplierCode, and no matter what I try to do I cant get it to populate.
I have added two class modules mirroring another combo box which I will attach.

The following is the code behind the combo box:

Private Sub cmbSupplierCode_Click()
If mDisplaying Or mCurrentProduct Is Nothing Then Exit Sub
If mSupplierCodes.CodeFromIndex(cmbSupplierCode.ListI ndex) <> mCurrentProduct.SupCode Then
mCurrentProduct.SupplierCode = mSupCodes.CodeFromIndex(cmbSupplierCode.ListIndex)
RaiseEvent UpdateToolBarButtonEnabled(tbbFileSave, True)
End If
End Sub

If anyone can help me with this, I would really appreciate it, also let me know if you need any further info.

Many thanks

Missa