adding in list box

[gmahendru]

Dear all,

I am reading numbers from two combo box in a form and wanna see the product of those nos in the list box...

What I am doing wrong????????

[VBA] Private Sub UserForm_Initialize()
With cboGenset
.List() = Range("Genset").Value
End With

With cboQtyG
.List() = Range("Qty").Value
End With

Me.txtkWe.Value = ""


End Sub


Private Sub cboGenset_Change()
Select Case cboGenset
Case Is = "4L20"
cbokWe.List() = Range("G4L20").Value
End Select
End Sub


Private Sub cbokWe_Change()
Dim x As Integer
Dim y As Integer
Dim z As Integer
cbokWe.Value = y
cboQtyG.Value = x
z = (x * y)
Me.txtkWe.AddItem (z)

End Sub
[/VBA]
Please help...

[Bob Phillips]

What is what control? Post a workbook.