imports OboutInc.Show public class vb_timebetweenpanels inherits System.Web.UI.Page Protected Dim Show1 as Show Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Show1.Width=370 Show1.Height=175 Show1.ShowType=ShowType.Show Show1.TimeBetweenPanels=3000 End Sub