Public Shared Sub Taberstellen(ByVal TabName As String) Dim tTab As New TabPage( _
  TabName) Dim tb, tb2 As New KryptonTextBox Dim pb, pb1, pb2, pb3, pb4, pb5 As _
  New PictureBox Dim panel As New KryptonPanel
panel.Parent = tTab tb.Parent = tTab tb2.Parent = tTab
tTab.Controls.Add(panel) : tTab.Controls.Add(tb) : tTab.Controls.Add(tb2)
panel.Dock = DockStyle.Left panel.Height = 268 panel.Width = 100 Dim panelloc _
  As New System.Drawing.Point panelloc.X = 3 panelloc.Y = 3 panel.Location = _
  panelloc
 
'tb.Dock = DockStyle.Bottom tb.Multiline = True tb.Height = 92 tb.Width = 273 
' Dim tbloc As New System.Drawing.Point tbloc.X = 103 tbloc.Y = 179 tb.Location 
' = tbloc
 
'tb2.Dock = DockStyle.Bottom tb2.ReadOnly = True tb2.Multiline = True 
' tb2.Height = 176 tb2.Width = 273 Dim tb2loc As New System.Drawing.Point 
' tb2loc.X = 103 tb2loc.Y = 3 tb2.Location = tb2loc
 
pb.Parent = panel pb.BorderStyle = BorderStyle.FixedSingle pb.SizeMode = _
  PictureBoxSizeMode.StretchImage pb.BackColor = Color.Transparent pb.Height = _
  92 pb.Width = 94 Dim pbloc As New System.Drawing.Point pbloc.X = 3 pbloc.Y = _
  3 pb.Location = pbloc
 
pb1.Parent = panel pb1.BorderStyle = BorderStyle.FixedSingle pb1.Image = _
  My.Resources.ResourceManager.GetObject("benutzer") pb1.SizeMode = _
  PictureBoxSizeMode.StretchImage pb1.BackColor = Color.Transparent pb1.Height _
  = 16 pb1.Width = 16 Dim pb1loc As New System.Drawing.Point pb1loc.X = 8 _
  pb1loc.Y = 101 pb1.Location = pb1loc
 
pb2.Parent = panel pb2.BorderStyle = BorderStyle.FixedSingle pb2.Image = _
  My.Resources.ResourceManager.GetObject("pref-ft") pb2.SizeMode = _
  PictureBoxSizeMode.StretchImage pb2.BackColor = Color.Transparent pb2.Height _
  = 16 pb2.Width = 16 Dim pb2loc As New System.Drawing.Point pb2loc.X = 30 _
  pb2loc.Y = 101 pb2.Location = pb2loc
 
pb3.Parent = panel pb3.BorderStyle = BorderStyle.FixedSingle pb3.Image = _
  My.Resources.ResourceManager.GetObject("E-Mail-32") pb3.SizeMode = _
  PictureBoxSizeMode.StretchImage pb3.BackColor = Color.Transparent pb3.Height _
  = 16 pb3.Width = 16 Dim pb3loc As New System.Drawing.Point pb3loc.X = 52 _
  pb3loc.Y = 101 pb3.Location = pb3loc
 
pb4.Parent = panel pb4.BorderStyle = BorderStyle.FixedSingle pb4.Image = _
  My.Resources.ResourceManager.GetObject("Contact-32") pb4.SizeMode = _
  PictureBoxSizeMode.StretchImage pb4.BackColor = Color.Transparent pb4.Height _
  = 16 pb4.Width = 16 Dim pb4loc As New System.Drawing.Point pb4loc.X = 74 _
  pb4loc.Y = 101 pb4.Location = pb4loc
 
pb5.Parent = panel pb5.BorderStyle = BorderStyle.FixedSingle pb5.SizeMode = _
  PictureBoxSizeMode.StretchImage pb5.BackColor = Color.Transparent pb5.Height _
  = 92 pb5.Width = 94 Dim pb5loc As New System.Drawing.Point pb5loc.X = 3 _
  pb5loc.Y = 171 pb5.Location = pb5loc
frm_private.TabControl1.TabPages.Add(tTab) End Sub