[Finally Resolved]Combo Box Issue

[vasanth2979]

Thank You Shuja Ali,

I will try your code and inform you of the result.

[vasanth2979]

The code required some modification so wrote the following code.

Private Sub CmbSource_Click()
   CmbDestination = CmbSource
   CmbDestination.RemoveItem Cmbsource.ListIndex
End Sub

This code works fine if the first item is selected in Combo1(It is removed from Combo2) but if i select any other item "Invalid Procedure call or arguement" Error is generated.

What may be the Reason?