gistfile1.bas

Partial Public Class MainPage
  Inherits UserControl

  'WCFサービスのカスタムクラス用のメンバ変数宣言
  Dim svc As ServiceReference1.Service1Client

  Public Sub New()
    InitializeComponent()
    'カスタムクラスのインスタンス生成
    svc = New ServiceReference1.Service1Client()
    'DoWork呼び出し完了時のイベントハンドラを指定
    AddHandler svc.DoWorkCompleted, AddressOf svc_DoWorkCompleted
  End Sub

  Private Sub svc_DoWorkCompleted(sender As System.Object, e As ServiceReference1.DoWorkCompletedEventArgs)
    MessageBox.Show(e.Result)
  End Sub

  Private Sub button1_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles button1.Click
    svc.DoWorkAsync("Test Message")
  End Sub
End Class