' Creating ButtonTool
Dim btnToolCopy As New ButtonTool()
btnToolCopy.Id = "copyTool"
' Adding ButtonTool to the QAT
Dim qatToolCopy As New QatPlaceholderTool()
qatToolCopy.TargetId = "copyTool"
' btnToolCopy.Id
qatToolCopy.TargetType = QatPlaceholderToolType.Tool
xamRibbon.QuickAccessToolbar.Items.Add(qatToolCopy)