Public Class GigaTabControl
    Inherits System.Windows.Forms.UserControl
 
    Dim VItems() As GLItem
    Public Property Items() As GLItem()
        Get
            Return VItems
        End Get
        Set(ByVal Value() As GLItem)
            VItems = Value
            Me.Refresh()
        End Set
    End Property
 
    Dim Start As Integer = 0
 
#Region " Vom Component Designer generierter Code "
 
    Public Sub New(ByVal Container As System.ComponentModel.IContainer)
        MyClass.New()
 
        'Für Support von Windows.Forms-Klassenkompositions-Designer
        Container.Add(Me)
    End Sub
 
    Public Sub New()
        MyBase.New()
 
        ' Dieser Aufruf ist für den Komponenten-Designer erforderlich.
        InitializeComponent()
 
        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
 
    End Sub
 
    'Die Komponente überschreibt den Löschvorgang zum Bereinigen der 
    ' Komponentenliste.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
 
    ' Für Komponenten-Designer erforderlich
    Private components As System.ComponentModel.IContainer
 
    'HINWEIS: Die folgende Prozedur ist für den Komponenten-Designer 
    ' erforderlich
    'Sie kann mit dem Komponenten-Designer modifiziert werden.
    'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
    Friend WithEvents PB As System.Windows.Forms.PictureBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.PB = New System.Windows.Forms.PictureBox()
        Me.SuspendLayout()
        '
        'PB
        '
        Me.PB.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or _
          System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me.PB.Name = "PB"
        Me.PB.Size = New System.Drawing.Size(248, 40)
        Me.PB.TabIndex = 0
        Me.PB.TabStop = False
        '
        'GigaTabControl
        '
        Me.BackColor = System.Drawing.Color.White
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.PB})
        Me.Name = "GigaTabControl"
        Me.Size = New System.Drawing.Size(248, 40)
        Me.ResumeLayout(False)
 
    End Sub
 
#End Region
 
'DEN REST HABE ICH RAUSGENOMMEN, DA ER NICHT WICHTIG IST
 
End Class
 
Public Class GLItem
 
    Dim VText As String
    Public Property Text() As String
        Get
            Return VText
        End Get
        Set(ByVal Value As String)
            VText = Value
        End Set
    End Property
 
End Class