Public Class WebForm1
    Inherits System.Web.UI.Page
 
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Try
 
            Me.Top.Controls.Add(LoadControl("Blocks/Top3.ascx"))
            Me.Area.Controls.Add(LoadControl("Blocks/Area3.ascx"))
            Me.Bottom.Controls.Add(LoadControl("Blocks/Bottom3.ascx"))
 
        Catch ex As Exception
            Global.ErrMsg = ex.Message
            Global.ErrStack = ex.StackTrace
            Me.Response.Redirect("error.aspx")
        End Try
    End Sub
 
End Class

<%@ Control Language="vb" AutoEventWireup="false" Codebehind="Top3.ascx.vb" _
  Inherits="Beta2.Top3" _
  TargetSchema="http://schemas.microsoft.com/intellisense/ie5" %>
<table border="0" cellpadding="0" cellspacing="0" width="1000" height="111">
	<tr>
		<td width="555"><img border="0" src="../Pics3/top1_a.JPG" width="110" _
  height="111"><img border="0" src="../Pics3/top1_b.JPG" width="120" _
  height="111"><img border="0" src="../Pics3/top1_c.JPG" width="120" _
  height="111"><img border="0" src="../Pics3/top1_d.JPG" width="120" _
  height="111"><img border="0" src="../Pics3/top1_e.JPG" width="85" _
  height="111"></td>
		<td width="445" valign="bottom">
			<table border="0" cellpadding="0" cellspacing="0" width="445">
				<tr>
					<td width="160"></td>
					<td width="43" valign="bottom"><% if session("developer") = False then _
  %><a href="index.aspx?s=<%=g.encode("user")%>"><img border="0" _
  src="../Pics3/btn_user_on.JPG" width="43" height="24"></a><% else _
  %><a href="index.aspx?s=<%=g.encode("user")%>"><img border="0" _
  src="../Pics3/btn_user_off.JPG" width="43" height="24"></a><% end if %></td>
					<td width="5"></td>
					<td width="82" valign="bottom"><% if session("developer") = False then _
  %><a href="index.aspx?s=<%=g.encode("developer")%>"><img border="0" _
  src="../Pics3/btn_dev_off.JPG" width="82" height="24"></a><% else _
  %><a href="index.aspx?s=<%=g.encode("developer")%>"><img border="0" _
  src="../Pics3/btn_dev_on.JPG" width="82" height="24"></a><% end if %></td>
					<td width="155"></td>
				</tr>
			</table>
		</td>
	</tr>
</table>

Public Class Top3
    Inherits System.Web.UI.UserControl
    [u]Public g As Global
 
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
    End Sub
 
End Class