vba - ThemeColorScheme と遅延バインディングを使用した VBA ユーザー フォーム

Question

ステータスバーのあるユーザーフォームを実行したいと思います.

コードbolowでフォームを表示します。変数を宣言し、それらの変数に新しい値を割り当てるにはどうすればよいですか?

非常に重要:プロジェクトで遅延バインディングを使用する必要があります。

Sub RunMyUserForm()

With MyUserForm
    .LabelProgress.Width = 0
    .TextBox1 = 1
    'to make the progress bar color match the workbook's current theme:
    .LabelProgress.BackColor = ActiveWorkbook.Theme.ThemeColorScheme.Colors(msoThemeAccent1)
    .Show vbModeless
End With

End Sub

よろしくお願いします。

更新された情報：

1. 「Option Explicit」を指定してマクロを実行しようとすると、機能しません ( Compile error: Variable not defined- コードの一部がmsoThemeAccent1黄色でマークされています)。そのため、変数を定義する際に助けを求めました。
2. 「Option Explicit」なしでマクロを実行しようとすると、動作しません ( Err.Description: "Value is out of range", Err.Number: -2147024809)
3. アーリー バインディング (VBE の [ツール]/[参照] を介して "MS Office Object Library" を参照) でマクロを実行しようとすると、"Option Explicit" の有無にかかわらず、すべてが完全に機能します。