Alignment with the top of the window and icons in menus

[Evil Bumblebee]

Yo!

I have two questions.

#1

I have a simple macro triggered from a custom made toolbar. It takes
me to a bookmark in the Word document:

Sub UK_Liberia()
Selection.HomeKey Unit:=wdStory
Selection.GoTo what:=wdGoToBookmark, Name:="UKLiberia"
End Sub

What I want, after it gets me there, is to have the line with the
bookmark at the top of the window (right below the Formatting Bar).
How do I get that?

#2

This creates the custom menu for me:

Sub NewMenu()

Dim cbpop As CommandBarControl
Dim cbctl As CommandBarControl
Dim cbct2 As CommandBarControl
Dim cbct3 As CommandBarControl
Dim cbct4 As CommandBarControl
Dim cbct5 As CommandBarControl
Dim cbct6 As CommandBarControl
Dim cbct7 As CommandBarControl
Dim cbct8 As CommandBarControl
Dim cbct9 As CommandBarControl
Dim cbct10 As CommandBarControl
Dim cbct11 As CommandBarControl
Dim cbct12 As CommandBarControl
Dim cbct13 As CommandBarControl
Dim cbct14 As CommandBarControl

Dim cbct15 As CommandBarControl
Dim cbct16 As CommandBarControl
Dim cbct17 As CommandBarControl
Dim cbct18 As CommandBarControl
Dim cbct19 As CommandBarControl
Dim cbct20 As CommandBarControl
Dim cbct21 As CommandBarControl
Dim cbct22 As CommandBarControl
Dim cbct23 As CommandBarControl
Dim cbct24 As CommandBarControl
Dim cbct25 As CommandBarControl
Dim cbct26 As CommandBarControl
Dim cbct27 As CommandBarControl
Dim cbct28 As CommandBarControl
Dim cbct29 As CommandBarControl
Dim cbct30 As CommandBarControl
Dim cbct31 As CommandBarControl
Dim cbct32 As CommandBarControl
Dim cbct33 As CommandBarControl
Dim cbct34 As CommandBarControl
Dim cbct35 As CommandBarControl
Dim cbct36 As CommandBarControl
Dim cbct37 As CommandBarControl
Dim cbct38 As CommandBarControl
Dim cbct39 As CommandBarControl
Dim cbsub As CommandBarControl

' Create a popup control on the main menu bar
Set cbpop = Application.CommandBars("Menu Bar"). _
Controls.Add(Type:=msoControlPopup)
cbpop.Caption = "Co&untry @ Click"
cbpop.Visible = True

Set cbsub = cbpop.Controls.Add(Type:=msoControlPopup)
cbsub.Visible = True
cbsub.Caption = "U.&K. Donations"

'(U.K.)
Set cbctl = cbsub.Controls.Add(Type:=msoControlButton)
With cbctl
.Visible = True
.Style = msoButtonCaption
.Caption = "&Azerbaijan"
.OnAction = "UK_Azerbaijan"
End With
'ENTRY #2
....

How do I go about putting the icons next to the entries in the menu in
a macro like this?

Cheers,

Evil Bumblebee