private Sub MyScroll_ScrollChanged(Position As Int)
Dim Pos As Int = Max(MyTitleFull.Height-Position,MyTitleReduce.Height)
MyScroll.Top=Pos
MyTitleFull.Top=Pos-MyTitleFull.Height
' MyTitleReduced si under MyTitleFull
If Pos=MyTitleReduce.Height Then
MyTitleFull.SetVisibleAnimated(1000,False)
Else
MyTitleFull.SetVisibleAnimated(400,True)
End If
End Sub