Public Sub SetItemValue( _
   ByVal ID As UInt, _
   ByVal Value As Double _
)