Private Sub TabErstellen()
        Dim objTab As ToolBoxTab
        Dim DTE As Object
        DTE = Microsoft.VisualBasic.Interaction.CreateObject( _
          Me.cboVisualStudioVersion.Text) '("VisualStudio.DTE.8.0")
 
        Dim win As Window = DTE.Windows.Item(Constants.vsWindowKindToolbox)
        Dim objToolbox As ToolBox = win.Object
        Dim colTbxTabs As ToolBoxTabs
        ' Create an object reference to the ToolBoxTabs object.
        colTbxTabs = objToolbox.ToolBoxTabs
 
        ' Add a new tab to the ToolBox.
        objTab = colTbxTabs.Add(Me.cboTabName.Text)
        colTbxTabs = objToolbox.ToolBoxTabs
 
        For i As Integer = 0 To Me.lbsPfade.Items.Count - 1
            objTab.ToolBoxItems.Add("MeinControl", Me.lbsPfade.Items( _
              i).ToString, _
              vsToolBoxItemFormat.vsToolBoxItemFormatDotNETComponent)
        Next
 
    End Sub

Gru? Rub

(PS: Besuch doch mal meine Seiten http://e-liquids.de und http://jjpassion.de)