Home
Up
Count
Item
Add
Move
MoveUp
MoveDown
Remove
OnBarRecordAdded
OnBarRecordChanged
OnBarRecordRemoved
OnBarRecordsSorted
OnBarRecordMoved
OnGroupAdded
OnGroupChanged
OnGroupRemoved
OnGroupMoved

GroupCollection.OnGroupAdded

Fires when a group is added to this collection

Syntax

handler_OnGroupAdded(newgroup)

Parameters

newgroup

The new group

Returns

None

Example

In this example, a message is displayed when a group is added to this collection.

Dim With Events groups as GroupCollection
Set groups = barlist.Groups
...
Private Sub groups_OnGroupAdded(ByVal group as Group)
   MsgBox "Group " + group.Name + " was added"
End Sub

Copyright © 1999, Washington State Department of Transportation