Sub Button1_Click
Dim a As Panel
a.Initialize("a")
a = Container.GetPageObject(CurrentPage)
For i = 0 To a.NumberOfViews
a.GetView(i)
If a.GetView(i).Tag = CurrentChapter Then
Dim c As ScrollView
c.Initialize(0)
'Panel1.Tag = i
c=a.GetView(i)
ToastMessageShow(c.ScrollPosition, True)
End If
Next
End Sub