'Sub Page_NoResize(ByVal Width As Integer, ByVal Height As Integer)
Sub AfterShow (cDoPage as cDoPage, e as cDoPageEventArgs)
e.cDoPage.Page_NoResize(400, 200)
End Sub