Public Class frmInputWeight
 
    Dim lblWeight As New Label With _
                {.Parent = Me, .Text = "Input Weight (kg):", .Width = 150}
    Dim txtWeight As New TextBox With _
                {.Parent = Me, .Left = lblWeight.Width + 5}
 
    Dim WithEvents btnDisplayWeight As New Button With _
        {.Parent = Me, .Text = "Display Weight in Form", _
         .Width = 300, .Top = 100}
 
 
    Private Sub btnDisplayWeight_Click(sender As Object, e As System.EventArgs) _
        Handles btnDisplayWeight.Click
 
        Dim weight As Decimal
        If Not Decimal.TryParse(txtWeight.Text, weight) Then
            MsgBox("Not a number") : Exit Sub
        End If
 
        Using myDisplayweight As New frmDisplayWeight
            With myDisplayweight
                .WeightToDisplay = weight
                .ShowDialog()
            End With
        End Using
    End Sub
End Class
 
 
 
Public Class frmDisplayWeight
 
    Dim displayedweight As Decimal = -1D
 
    Dim txtWeight As New TextBox With _
                     {.Parent = Me, .Font = New Font("Arial", 36, _
                     FontStyle.Bold), _
                      .Width = 300, .Height = 300}
 
 
    Public Property WeightToDisplay As Decimal
 
        Set(value As Decimal)
            If value < 10 Or value > 150 Then
                Throw New ArgumentException("Illegal Weight")
            End If
            displayedweight = value
            txtWeight.Text = Format(value, "0.00 kg")
        End Set
 
        Get
            If displayedweight = -1 Then
                Throw New ArgumentException("No weight available")
            End If
            Return displayedweight
        End Get
    End Property
 
End Class