'Beispiel für ein Sensor-Displaycontrol
Public Class ucSensorDisplay
    Inherits UserControl
 
    Dim tbName As New TextBox With _
          {.Parent = Me, .Top = 4, .Width = 100, .Text = "<Name>"}
    Dim tbPosition As New TextBox With _
          {.Parent = Me, .Top = 24, .Width = 100, .Text = "<Positon>"}
    Dim tbValue As New TextBox With _
          {.Parent = Me, .Top = 48, .Width = 100, .Text = "<Messwert>"}
 
    Private Sub ucSensor_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
 
        Me.Width = 105 : Me.Height = 70
        Me.BorderStyle = BorderStyle.FixedSingle
    End Sub
 
    Public Sub New()
        InitializeComponent()
        tbName.Text = "<Text>" 
        tbPosition.Text = "<Position>" : tbValue.Text = "<Value>"
    End Sub
 
    Public Sub New(ByVal Name As String, ByVal Position As String, _
        ByVal Value As Double)
 
        InitializeComponent()
        tbName.Text = Name : tbPosition.Text = Position 
        tbValue.Text = CStr(Value)
    End Sub
 
    Private Sub ucSensorDisplay_Resize(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles Me.Resize
        Me.Width = 105 : Me.Height = 70
    End Sub
End Class
 
'Beispiel für das TableLayoutPanel auf einem Formular
Public Class frmLayout
 
    Dim tlp As New TableLayoutPanel With _
    {.Parent = Me, .Width = 130, .Dock = DockStyle.Left, .Top = 10}
 
    Private Sub frmLayout_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
        tlp.ColumnCount = 1
        tlp.RowCount = 3
        tlp.Controls.Add(New ucSensorDisplay("TX 3000", "links oben", 245.7))
        tlp.Controls.Add(New ucSensorDisplay("TX 3000", "rechts oben", 255.7))
        tlp.Controls.Add(New ucSensorDisplay("TX 3000C", "mitte oben", 246.9))
        tlp.Autoscroll = true
        tlp.Show()
    End Sub
End Class