Imports Microsoft.Lync.Model
Imports System.Text
Imports System.Linq
Imports System.Collections.Generic
Imports System
 
Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
     Button1.Click
      Dim theClient As Object
 
      Try
         theClient = LyncClient.GetClient()
 
      Catch ex As Exception
         Stop
 
      Finally
         Debug.Print(theClient.State)
 
      End Try
 
 
   End Sub
 
End Class