imports OboutInc.Show public class vb_cosmiclightshow2 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.StyleFolder="styles/style5" Show1.Width=625 Show1.Height=350 Show1.ShowType=ShowType.Manual Show1.ManualChanger=true Show1.Changer.Width=625