Free for PREMIUM members
[Webinar] Streamline your web hosting managementRegister Today
Private supplier As New BookSupplier.WebService()
Public Sub GetBookCost(ByVal bookName As String)
AddHandler supplier.GetCostCompleted AddressOf supplier_GetCostCompleted
Private Sub supplier1_GetCostCompleted(sender As Object, e As BookSupplier.GetCostCompletedEventArgs)
If e.Error IsNot Nothing Then
Dim cost As Decimal = TryCast(e.UserState, Decimal)
costLabel.Text = "Quote from Book Supplier: " & cost
Open in new window
Solve your biggest tech problems alongside global tech experts with 1:1 help.
Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.