This example commits all properties (including all property changes) that affect the specified discussion.
Dim dscDiscussions As Discussions
Set dscDiscussions = OpenDiscussions("http://samples.microsoft.com")
dscDiscussions(1).Discussions(1).Commit