Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim item1 As Item = ItemCache.GetItem("c:\sample.xml")
        System.Diagnostics.Trace.WriteLine(item1.Code)
        item1.Code = "cod0123456789"
        item1.Update()
        item1 = Nothing

        System.GC.Collect()

        Dim item2 As Item = ItemCache.GetItem("c:\sample.xml")
        System.Diagnostics.Trace.WriteLine(item2.Code)
    End Sub