Sub AddCombo1()

frmForm1.iGrd_1.Combos.Add("myKey").AddItem "Item1"

End Sub

...

with frmForm1.iGrd_1 ' Add Combo1 ("myKey") to iGrid_1

   .CellType(19, 2) = igCellCombo
   .CellCtrlKey(19, 2) = "myKey"
   .CellValue(19, 2) = .Combos.Items("myKey").ItemValue(0)

End With

with frmForm1.iGrd_2 ' Add Combo1 ("myKey") from iGrid_1 to iGrid_2

   .CellType(9, 2) = igCellCombo
   .CellCtrlKey(9, 2) = "myKey"
   .CellValue(9, 2) = .Combos.Items("myKey").ItemValue(0)

End With