Crashing during GetCommandManager call

Why is SW crashing during a GetCommandManager call to create a new Tab. See code below. Using SW2009 SP3 on Vista 32.

Public Sub AddCommandMgr()
    Dim swApp As SldWorks.SldWorks
    Dim swCmdMgr As SldWorks.CommandManager
    Dim swCmdGrp As SldWorks.CommandGroup
    Dim Title As String
    Dim ToolTip As String
    Dim bResult As Boolean
    Dim Cookie As Integer

    Set swApp = Application.SldWorks
    Title = "CmdMgrTest"
    ToolTip = "CmdMgrTest"
    swCmdMgr = swApp.GetCommandManager(Cookie)
    swCmdGrp = swCmdMgr.CreateCommandGroup(1, Title, ToolTip, "", -1)
    swCmdGrp.HasToolbar = True
    swCmdGrp.HasMenu = True
    swCmdGrp.ShowInDocumentType = swDocTemplateTypes_e.swDocTemplateTypePART + swDocTemplateTypes_e.swDocTemplateTypeASSEMBLY
    bResult = swCmdGrp.Activate()
End Sub

SolidworksApi macros