Public Sub make_Label(number As String, display As String) As Label
Try
Dim txtDesc As Label
txtDesc.Initialize("txtDesc")
Dim width As Double = Pane1.Width * 0.05
Dim height As Double
height = MeasureMultilineTextHeight(fx.DefaultFont(14),width,display)
txtDesc.Font = fx.DefaultFont(14)
txtDesc.Text=display
txtDesc.WrapText=True
txtDesc.Style =".label-enabled {-fx-text-fill: black;} .label-disabled {-fx-text-fill: black;}"
Pane1.AddNode(txtDesc, 15dip, bblTop , width ,-1)
bblTop = bblTop + height + 10dip
Catch
Log(LastException)
End Try
End Sub