Public Function RemoveBudget(ByVal budget As Budget) As Budget
Dim Locations As New Dictionary(Of Int64, Location)
Dim service As BudgetService = CType(User.GetService(AdWordsService.v201607.BudgetService), BudgetService)
Dim operation As BudgetOperation = New BudgetOperation()
budget.status = BudgetBudgetStatus.REMOVED
operation.operand = budget
operation.operator = [Operator].REMOVE
Dim operations(0) As BudgetOperation
operations(0) = operation
Try
service.mutate(operations)
Catch e As Exception
Throw New System.ApplicationException("Failed to get location for ad.", e)
End Try
Return Nothing
End Function