子ｳｨﾝﾄﾞｳの整列ｽﾀｲﾙ

御質問頂いた際、正直何のことかわかりませんでした。
が、調べたら理解できました。（最初はﾊﾟﾀｰﾝの何か? かと思いました）

要は、ここの表示の切り替えをﾏｸﾛで行いたいと言う事ですよね？

'CatArrangeStyleﾃｽﾄ
Sub CATMain()

    Call CATIA.Windows.Arrange(CatArrangeStyle.catArrangeCascade)
    CATIA.RefreshDisplay = True
    MsgBox "CatArrangeStyle - catArrangeCascade"
    
    Call CATIA.Windows.Arrange(CatArrangeStyle.catArrangeTiledHorizontal)
    CATIA.RefreshDisplay = True
    MsgBox "CatArrangeStyle - catArrangeTiledHorizontal"
        
    Call CATIA.Windows.Arrange(CatArrangeStyle.catArrangeTiledVertical)
    CATIA.RefreshDisplay = True
    MsgBox "CatArrangeStyle - catArrangeTiledVertical"

End Sub

3つのｽﾀｲﾙを順番に変更します。最小化しているｳｨﾝﾄﾞｳは影響無いようです。
又、環境や使用方法次第ですが、RefreshDisplayを入れておかないと
ｽﾀｲﾙの変更が間に合わない場合があるかもしれません。
（こちらで試した際、入れないと半分ぐらいしか表示しない状態で
　　MsgBoxが出現しました）