VBA中自由的操作自定義工具欄

Sub RefreshTaskBar()
  If Form.RecordsetClone.RecordCount = 0 Then Exit Sub
  Dim Ts As String, i As Integer, ts1 As String, j As Long
  Dim rs As ADODB.Recordset, rs1 As ADODB.Recordset
  Set rs = Form.RecordsetClone
  rs.MoveFirst
  CommandBars("MainTask").Controls(1).Caption = Left("  " & Trim(rs("NoteTitle")), 40) & " ...... "
  Ts = "NID=" & rs("NID")
  Ts = "=OpenFm('FmSYS_NoticeContent', '','" & Ts & "')"
  CommandBars("MainTask").Controls(1).OnAction = Ts
  CommandBars("MainTask").Controls(1).TooltipText = rs("NoteTitle")
  CommandBars("MainTask").Controls(2).Caption = " " & rs("PostMan") & " "
  j = rs("NID")
 
  rs.Close
  Set rs = Nothing
 
  'Set rs1 = CurrentProject.Connection.Execute("SELECT NNID, NID, DocName, DocLink FROM System_NoticesDocs Where NID=" & j)
  Set rs1 = Form_A0FmTaskListNoticesDocsChl.Form.RecordsetClone
  If rs1.RecordCount > 0 Then
    rs1.MoveFirst
    While Not rs1.EOF
      If rs1.AbsolutePosition <= 15 Then
      ts1 = "=ShellEx(""" & rs1("DocLink") & """, 3)"
      CommandBars("MainTask").Controls(3).Controls(rs1.AbsolutePosition) _
              .Caption = rs1("DocName")
      CommandBars("MainTask").Controls(3).Controls(rs1.AbsolutePosition).OnAction = ts1
      CommandBars("MainTask").Controls(3).Controls(rs1.AbsolutePosition).Visible = True
      End If
      rs1.MoveNext
    Wend
    For i = rs1.RecordCount + 1 To 15
      CommandBars("MainTask").Controls(3).Controls(i).Visible = False
    Next i
  End If

  rs1.Close
  Set rs1 = Nothing
End Sub
============================================================
        CommandBars("MainTask").Controls("HideTasks").copyface
        CommandBars("MainTask").Controls("Tasks").pasteface
        CommandBars("MainTask").Controls("Tasks").OnAction = "=ShowTasks(0)"