メニューについて２つ教えてください。検索で探してみたのですが、期待するものを見つけることができませんでした。どなたかご助言お願いします。

メニューバーの背景色を変更する方法が知りたいと思い探してみたのですが、SetMenuItemInfo APIを使用するところまでで、具体的にどう設定するのかたどり着けませんでした。

また、下記のようにするとエラー"型が一致しません"になります。どなたかお分かりの方おられましたら教えてください。

(メニューはメニューエディタにて作成済みとして)
dim mnu as Menu
dim i as Integer

For i = 0 to 9
    Set mnu = "MenuS_" & i  <- メニュー名が MenuS_1 〜 MenuS_9 で、変数にセットしたい
    <処理>
    Set mnu = Nothing
Next

なぜ MenuS(9) としていないかというと、
Menu(0)
Menu(1)
    MenuS_1(0)
    MenuS_1(1)
      :
Menu(2)
    MenuS_2(0)
    MenuS_2(1)
      :

という構造にしていて、これを For-Nextのネストで回して処理したいのです。
不可能ですが、イメージとしては(伝わりにくい？？）以下のような感じです。

Menu(0)
Menu(1)
    MenuS(1,0)
    MenuS(1,1)
      :
    MenuS(1,9)
Menu(2)
    MenuS(2,0)
    MenuS(2,1)
      :

For i = 0 to Menu.Ubound
    Menu(i).Caption="Menu " & i
    For j = 0 to 9
        MenuS(i,j).Caption = "Sub Menu " & j
    Next
Next

別の方法でも良いのですが、階層付メニューのタイトルをファイル等のデータを元に実行時に設定したいと思っています。

ジャグ配列かコレクションにでも入れておけば良いと思います。