public class UOWPerson : XPObject
{
    string fName;
    public UOWPerson(Session session) : base(session) { }
    public UOWPerson(Session session, string name) : base(session)
    {
        this.fName = name;
    }
    public string Location { 
        get { return GetPropertyValue<string>("Location"); }
        set { SetPropertyValue<string>("Location", value); }
    }
    public string Name {
        // We cannot use GetPropertyValue in the getter  
        // below because the fName field is explicitly defined 
        get { return fName; }
        set { SetPropertyValue<string>("Name", ref fName, value); }
    }
}

Public Class UOWPerson
    Inherits XPObject
    Private fName As String 
    Public Sub New(ByVal session As Session)
        MyBase.New(session)
    End Sub 
    Public Sub New(ByVal session As Session, ByVal name As String)
        MyBase.New(session)
        Me.fName = name
    End Sub 
    Public Property Location() As String 
        Get 
            Return GetPropertyValue(Of String)("Location")
        End Get 
        Set(ByVal value As String)
            SetPropertyValue(Of String)("Location", value)
        End Set 
    End Property 
    Public Property Name() As String 
        ' We cannot use the GetPropertyValue in the getter 
        ' below because the fName field is explicitly defined 
        Get 
            Return fName
        End Get 
        Set(ByVal value As String)
            SetPropertyValue(Of String)("Name", fName, value)
        End Set 
    End Property 
End Class 

using(UnitOfWork uow = new UnitOfWork()) {
    // Create, update or delete objects 
    uow.CommitChanges();
}

Dim uow As UnitOfWork = New UnitOfWork()
    ' Create, update or delete objects 
    uow.CommitChanges()
uow.Dispose()

using(UnitOfWork uow = new UnitOfWork()) {
    UOWPerson p = new UOWPerson(uow, "Mike");
    // p.Save(); when working with a Session 

    p = new UOWPerson(uow, "John");
    // p.Save(); when working with a Session 

    p = new UOWPerson(uow);
    p.Name = "Bob";
    p.Location = "US";
    // p.Save(); when working with a Session 

    // Save all the changes made 
    uow.CommitChanges();
}

Dim uow As UnitOfWork = New UnitOfWork()
Dim p As UOWPerson = new UOWPerson(uow, "Mike")
' p.Save() - when working with a Session 

p = New UOWPerson(uow, "John")
' p.Save() - when working with a Session 

p = New UOWPerson(uow)
p.Name = "Bob" 
p.Location = "US" 
' p.Save() - when working with a Session 

' Save all the changes made 
uow.CommitChanges()
uow.Dispose()