Private Sub uos_GetUserCompleted(ByVal sender As Object, ByVal args As _
   UserService.GetUserCompletedEventArgs())
        For Each item As String In args
 
            Me.TextBox1.Text += item & vbNewLine
 
        Next
 
    End Sub