Hi!
...
Combo1.BoundColumn = 2
Combo1.ColumnCount = 3
Combo1.ColumnWidths = "210,0,0"
Combo1.RowSourceType = 2
Combo1.RowSource = "currency"
Combo1.DisplayValue = RUSSIAN RUBL.
Combo1.TabIndex = 4
Combo1.ToolTipText = "Select currency"
Combo1.Name = "Combo1"
...
Procedure Init
Thisform.Combo1.value = "810"
Endproc
....
User chooses name of currency but is chosen its code!

Good luck!
Yuri