IsActivated Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub TestIsActivated ( )
   Dim out As String
   'test the local computer's connection
   out = "Activated: " & CStr(LEADDICOMNet1.IsActivated(LEADDICOMNet1.hNet))
   out = out & Chr(13)
   out = out & "Connected: " & CStr(LEADDICOMNet1.IsConnected (LEADDICOMNet1.hNet))
   out = out & Chr(13)
   out = out & "Associated: " & CStr(LEADDICOMNet1.IsAssociated(LEADDICOMNet1.hNet))
   MessageBox.Show(out)
End Sub