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