用于在excel 2013中将自定义选项卡停靠在公式栏下方的vb.net代码

我正在尝试在excel 2013中将自定义任务窗格停靠在公式栏下方，但在公式栏上方的位置会有一些更改

 If CustomTaskPanes.Count < 1 Then
        myUserControl1 = New MyUserControl
        myCustomTaskPane = Me.CustomTaskPanes.Add(myUserControl1, "My Task Pane")
        myCustomTaskPane.Visible = True
        With myCustomTaskPane
            .DockPosition = pos.up 
            .DockPosition = pos.Medium

        End With
    End If

如果CustomTaskPanes.Count小于1，则
myUserControl1=新的MyUserControl
myCustomTaskPane=Me.CustomTaskPanes.Add（myUserControl1，“我的任务窗格”）
myCustomTaskPane.Visible=True
使用myCustomTaskPane
.DockPosition=位置向上
.DockPosition=位置中等
以
如果结束