ActiveGroup

Returns or sets the current active group of the VLButtonBar control.

Syntax

Set object.ActiveGroup[=aGroup]

The ActiveGroup property syntax has these parts:

Part	Description
Object	An object expression that evaluates to a VLButtonBar.
aGroup	An object of type CGroup specifying the group to be activated.

Remark

This property can be used to programmatically change the active group. Following piece of code demonstrates the use of the property :

Private Sub ChangeGroup(ByVal sGroupKey As String) 
Dim aGroup As CGroup 
      	
   On Error Resume Next
   'Get specified group object		
   Set aGroup = VLBtnBar1.Groups.Item(sGroupKey) 
      If Not aGroup Is Nothing Then
         Set VLBtnBar1.ActiveGroup = aGroup 
   End If 
End Sub