How to assign shortcut key to builtin style in MS Word 2010 using vb.net

See more:

VB

AddIn

MS-Word

I have written code for Application level MS Word Addin according to my own requirement for built in headings now i want to assign shortcut key to them. Following is the code. While using word this can be achieved by clicking on a style i.e Heading 1-> modify->shortcut key

<br />
<br />
With oDoc.Styles(word.WdBuiltinStyle.wdStyleHeading1)<br />
            .Font.Bold = False<br />
            .Font.Size = 12<br />
            .Font.Name = "Arial"<br />
            .Font.Spacing = 16<br />
            .NameLocal = "Heading1"<br />
            .BaseStyle = "Normal"<br />
            .ParagraphFormat.SpaceBefore = 6<br />
            .ParagraphFormat.OutlineLevel = 1<br />
            With .ParagraphFormat.TabStops<br />
                .Add(Position:=oWord.CentimetersToPoints(2), Alignment:=word.WdAlignmentTabAlignment.wdCenter)<br />
            End With<br />
            .ParagraphFormat.KeepWithNext = True<br />
            .LinkToListTemplate(oTemplate1)<br />
        End With<br />
<br />

Please guide how assign shortcut keys using code.