Private Sub Button_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
Dim groups As OutlookBarGroupCollection = New OutlookBarGroupCollection()
Dim gr As OutlookBarGroup
gr = New OutlookBarGroup()
gr.Header = "First"
groups.Add(gr)
gr = New OutlookBarGroup()
gr.Header = "Second"
groups.Add(gr)
groups(0).Key = groups(0).Header.ToString()
groups(1).Key = groups(1).Header.ToString()
If Not xamOutlookBar1.Groups.ContainsKey("First") Then
xamOutlookBar1.Groups.InsertRange(0, groups)
groups("First").IsSelected = True
Else
xamOutlookBar1.Groups.RemoveRange(0, 2)
End If
End Sub