Sub SlidePanelDownAndUp(pCurrentPanelToSlide As Panel, _
pNewPanelToSlide As Panel)
tmrSlidePanelDown.Initialize("tmrSlidePanelDown", 1)
tmrSlidePanelDown.Enabled = True
End Sub
Sub tmrSlidePanelDown_Tick
PanelMain.Top = PanelMain.Top + 20
If PanelMain.Top > Activity.Height Then
tmrSlidePanelDown.Enabled = False
PanelMain.Visible = False
PanelNewStory.Visible = True
End If
End Sub