IsActivated Example for Visual Basic

    Dim out$
    '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))
    MsgBox out$