Count Property Example

This example displays a message box containing the number, or count, of all discussions in the Discussions collection.

Dim dscDiscussions As Discussions
Set dscDiscussions = _
    OpenDiscussions("http://examples.microsoft.com")
dscDiscussions.Add "Supply room questions", _
    "Did anyone order staples?", 
MsgBox dscDiscussions.Count