Commands.CommandInfo Method

void CommandInfo(
	Object CommandBarControl,
	out string Guid,
	out int ID
)

' Macro code.
Sub CommandInfoExample()
   Dim cmds As Commands
   Dim cmdobj As Command
   Dim cmdbarobj As CommandBar
   Dim cmdbarctl As CommandBarControl
   Dim colAddins As AddIns
   Dim GUID As String
   Dim ID As Long

   ' Set references.
   colAddins = DTE.AddIns()
   cmds = DTE.Commands
   cmdobj = cmds.Item("File.NewFile")
   GUID = ""
   ID = 0

   ' Create a toolbar and add the File.NewFile command to it.
   cmdbarobj = cmds.AddCommandBar("AACmdBar", _
   vsCommandBarType.vsCommandBarTypeToolbar)
   MsgBox("Commandbar name: " & cmdbarobj.Name)
   cmdbarctl = cmdobj.AddControl(cmdbarobj)
   ' Assign new GUID and ID to the command bar control.
   cmds.CommandInfo(cmdbarctl, GUID, ID)
End Sub