Add Button Help

[Josh O.]

I am running the below code to add a button to the Standard tool bar. When I
call the macro (used primarily during 'Sub Document_New' or 'Document_Open'),
the button is added, but it appears invisible until I hover over (then it
appears). The space for the button is there, but I can see it.

Any ideas on how to make it appear immediately? FYI...the button shows
without hovering if there is another window in front of where the button
appears, and I minimize that window.

Private Sub Document_New()
Call MenuBar_Item
End Sub

Private Sub MenuBar_Item()
Call MenuBar_Item_Delete
With Application.CommandBars("Standard")
With .Controls.Add(Type:=msoControlButton, Temporary:=True _
, Before:=1)
.FaceId = 59
.Style = msoButtonIcon
.Caption = "&AddEnter"
.TooltipText = "Run Add Returns Process"
.OnAction = "AddEnter"
.Tag = "AddEnter"
End With
End With
End Sub