'at globals the scrollpane and pane
sub loadagain
If ascroll.IsInitialized Then
'rulerpane=
'trackspane= 'seems must do something here.. ?
'timepane=
'myPane=
End If
ascroll.Initialize("ascroll1")
trackscroll.Initialize("bscroll1")
rulerscroll.Initialize("cscroll1")
trackspane.AddNode(trackscroll,0,0,trackspane.Width,trackspane.Height)
trackspane=trackscroll.InnerNode
trackscroll.SetHScrollVisibility("NEVER")
trackscroll.SetVScrollVisibility("NEVER")
rulerpane.AddNode(rulerscroll,0,0,rulerpane.Width,rulerpane.Height)
rulerpane=rulerscroll.InnerNode
rulerscroll.SetHScrollVisibility("NEVER")
rulerscroll.SetVScrollVisibility("NEVER")
myPane.AddNode(ascroll,0,0,myPane.width,myPane.Height)
myPane=ascroll.innernode
'.............
end sub