もしわかる方がいらっしゃったらご教授頂けないでしょうか。

やりたいことはstudyが以上に沢山あるので（72個！）下のタブから選択するのが面倒なので

フォームのリストボックスからstudyを選択できるようにしたい。

フォームを作るところまではうまく行ったのですがリストボックスのインデックスから

対応するstudyを選択するところでつまづいています。

Private Sub StudyListBox1_Click()

Dim SwApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim COSMOSWORKS As CosmosWorksLib.COSMOSWORKS
Dim CWAddinCallBack As CosmosWorksLib.CWAddinCallBack
Dim ActDoc As CosmosWorksLib.CWModelDoc
Dim StudyMngr As CosmosWorksLib.CWStudyManager
Dim Study As CosmosWorksLib.CWStudy
Dim Count As Integer
Dim sStudyName As String
Dim i As Long
Dim Selected As Integer

'Connect to SOLIDWORKS
Set SwApp = Application.SldWorks
If SwApp Is Nothing Then Exit Sub

'Get active document
Set Part = SwApp.ActiveDoc
If Part Is Nothing Then Exit Sub
'Add-in callback
Set CWAddinCallBack = SwApp.GetAddInObject("CosmosWorks.CosmosWorks")
If CWAddinCallBack Is Nothing Then Exit Sub
Set COSMOSWORKS = CWAddinCallBack.COSMOSWORKS
If COSMOSWORKS Is Nothing Then Exit Sub

'Get active document
Set ActDoc = COSMOSWORKS.ActiveDoc()
If ActDoc Is Nothing Then Exit Sub

Set StudyMngr = ActDoc.StudyManager()
If StudyMngr Is Nothing Then Exit Sub

Count = StudyMngr.StudyCount

Selected = StudyListBox1.ListIndex

Set Study = StudyMngr.GetStudy(Selected)'←この辺が怪しいです
Study.ActivateConfiguration'←この辺が怪しいです
StudyMngr.ActiveStudy = Selected'←この辺が怪しいです

End Sub

アドバイスありがとうございます。

simulationのライセンスが帰ってきたら試してみたいと思います。

何とかやりたいことが実現できそうな気がしてきましたので試すのが楽しみです！

(APIヘルプ抜粋)
> ActiveStudy Property (ICWStudyManager)
> Gets or sets the index of the active study.

で，やってみたら結果的に手動で数字変えたらタブ切り替えることはできました。
ひとつだけ，柴田さん書かれてるCosmosWorksLibってのがどこにあるかわからなかったのでそれ関連の定義はぜんぶobjectにして，
AddInObjectは公式ヘルプのサンプルコード参考にSldWorks.Simulationにしました。
Set CWAddinCallBack = SwApp.GetAddInObject("SldWorks.Simulation")

アドバイスありがとうございます。

今はsimulationライセンスを別の人が使っているので、ライセンスが帰ってきたら早速試したいと思います。