Sub Button_Click( s As Object, e As EventArgs )
Dim objTemp As New TemperatureService
lblCelsius.Text = objTemp.ToCelsius( txtFahrenheit.Text )
End Sub
Sub Page_Load
Dim objProductsService As ProductsService
objProductsService = New ProductsService()
dgrdProducts.DataSource = objProductsService.getProducts( "Seaf
Sub Page_Load
Dim objApplicationService As ApplicationService
objApplicationService = New ApplicationService
lblCounter.Text = objApplicationService.GetAppCounter
Sub Page_Load
Dim objNewsService As BetterNewsService
Dim arrNews As NewsItem()
objNewsService = New BetterNewsService()
arrNews = objNewsService.GetNews()
