PrivateSub Button_Click(ByVal sender AsObject, 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()
IfNot xamOutlookBar1.Groups.ContainsKey("First") Then
xamOutlookBar1.Groups.InsertRange(0, groups)
groups("First").IsSelected = TrueElse
xamOutlookBar1.Groups.RemoveRange(0, 2)
EndIfEnd Sub
'宣言
Public Function ContainsKey( _
ByVal key As String _
) As Boolean