Sub setTabs()
		Dim i As Integer = 0
		Dim x,y As Integer
		y = Me.Height - PTab1.Height
		x = 0
 
		Dim a() as String = {"SUCHEN","ÜBERSICHT","Ansprechpartner","Anschrift"}
			'(es sind mehr als 4 Reiter)
 
		For i = 0 To ubound(a)
			Dim PicTab = new PictureBox
			With PicTab
				.Top = 0
				.Left = x
				.Width = PTab1.Width
				.AutoSize = True
				.Image = PTab1.Image
				.Name = "PicTab_" & i.ToString
				.Tag = a(i)
				.Visible = True
				.TabIndex = 10+i
				AddHandler .MouseDown, AddressOf Me.TPanelMouseDown
			End With
 
			Dim oLbl = new Label
			With oLbl
				.AutoSize = False
				.Top = 5
				.Left = x
				.Width = PTab1.Width
				.Font = New Font("Arial",10)
				.ForeColor = color.DarkBlue
				.BackColor = color.Transparent
				.TextAlign = ContentAlignment.MiddleCenter
				.Name = "LblTab_" & i.ToString
				.Text = a(i)
				.TabIndex = 50+i
				.Visible = True
				AddHandler .MouseDown, AddressOf Me.TPanelMouseDown
			End With
 
			TPanel.Controls.Add(PicTab)
			TPanel.Controls.Add(oLbl)
 
			oLbl.Parent = PicTab
 
			oLbl.BringToFront()
 
			x = x + PTab1.Width
		Next
 
		Me.TPanel.Width = x
		Me.TPanel.Top = y
		Me.TPanel.Left = Me.Width / 2 - Me.TPanel.Width / 2
 
	End Sub