Dim service As BudgetService = CType(User.GetService(AdWordsService.v201607.BudgetService), BudgetService)
Dim selector As New Selector
selector.fields = New String() { Budget.Fields.BudgetId, Budget.Fields.Amount }
selector.predicates = New Predicate() { Predicate.Equals(Budget.Fields.BudgetStatus, BudgetBudgetStatus.ENABLED) }
selector.paging = Paging.Default
Dim page As BudgetPage Try
' Get the text ads. page = service.get(selector)