Listing L
'##############################################################################
' Author: Kevin Koch
' Description:  This class is a simple custom user control allowing
'               navigation around the application
'##############################################################################
 
 
 
 
Public MustInherit Class NavBar
   Inherits System.Web.UI.UserControl
    Protected WithEventsbtnViewBooks As System.Web.UI.WebControls.Button
    Protected WithEventsbtnViewOrders As System.Web.UI.WebControls.Button
    Protected WithEventsbtnHome As System.Web.UI.WebControls.Button
 
 
#Region " Web Form Designer Generated Code "
 
 
    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
 
 
    End Sub
 
 
    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
       InitializeComponent()
    End Sub
 
 
#End Region
 
 
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
    End Sub
 
 
    Private Sub btnHome_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHome.Click
       Server.Transfer(WebPageNames.HOME_PAGE)
    End Sub
 
 
    Private Sub btnViewBooks_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnViewBooks.Click
       Server.Transfer(WebPageNames.VIEW_BOOKS)
    End Sub
 
 
    Private Sub btnViewOrders_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnViewOrders.Click
       Server.Transfer(WebPageNames.SEARCH_ORDERS)
    End Sub
End Class