SSTabにSSTabを貼り付けるには？ (ID:108191)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Muddyと申します。こんにちは。お世話になります。 現在SSTabにSSTabを貼り付けたいのですが、うまくいかず悩んでいます。 親タブ(OyaTab)へ動的に作成した子タブ(KoTab)を貼り付けたいのですが、 親タブ(OyaTab)の先頭タブに全て子タブ(KoTab)が貼り付いてしまいます。 Private Sub Form_Load() Dim i As Integer For i = 1 To 3 Load KoTab(i) '子タブ作成(1 To 3) OyaTab.Tab = i - 1 '親タブ設定(0 To 2) Set KoTab(i).Container = OyaTab '親タブへ子タブ貼り付けるが '全て親タブの先頭に貼り付け 'られてしまいます。 With KoTab(i) .Visible = True '子タブ表示 .Left = .Left + i * 500 '子タブ位置 End With Next i End Sub 親タブ(OyaTab)の各タブに子タブ(KoTab)を貼り付けるにはどのような コーディングをしたらよろしいでしょうか？