Dim scp As ScrollPane
scp.Initialize("scp")
scp.SetVScrollVisibility("ALWAYS")
Dim tPage As TabPage
Dim ap As AnchorPane=scp.InnerNode
Dim apContent As AnchorPane
apContent.Initialize("")
tPage.Initialize
'ap.Initialize("")
tbp.Tabs.Clear
apContent.AddNode(ap,0,0,-1,-1)
tPage.Content=apContent
ap.Style="-fx-background-color:#404040"
apContent.Style="-fx-background-color:#606060"
tbp.Tabs.Add(tPage)
tPage.Text="Test"
For x=0 To 10
Dim lbl As Button
lbl.Initialize("lbl")
lbl.PrefWidth =160
lbl.prefHeight =40
lbl.WrapText =True
lbl.Style =" -fx-background-color:#313131; -fx-font-family: Tahoma;-fx-font-weight: bold; -fx-font-size: 14px; -fx-alignment: CENTER;"
lbl.TextColor =fx.Colors.Black
lbl.Text ="test "&x
apContent.AddNode(lbl,0,x*40,160,40)
apContent.PrefHeight=x*lbl.PrefHeight
Log(ap.PrefHeight)
Next