' Creating ButtonTool
Dim btnToolCopy As New ButtonTool()
btnToolCopy.Id = "copyTool"
AddHandler btnToolCopy.Click, AddressOf btnToolCopy_Click
' Adding ButtonTool to the QAT
Dim qatToolCopy As New QatPlaceholderTool()
qatToolCopy.TargetId = "copyTool" ' btnToolCopy.Id
qatToolCopy.TargetType = QatPlaceholderToolType.Tool
xamRibbon.QuickAccessToolbar.Items.Add(qatToolCopy)
...
Private Sub btnToolCopy_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
Dim btnTool As ButtonTool = TryCast(sender, ButtonTool)
Dim qatTool As QatPlaceholderTool = TryCast(btnTool.Parent, QatPlaceholderTool)
If qatTool Is Nothing Then
Debug.Write("The tool is not on the QuickAccessToolbar")
Else
Debug.Write("QatPlaceholderTool.ToString(): " + qatTool.ToString())
End If
End Sub