SetCalled Example for Visual Basic

    'set called application title
    LEADDICOMNet1.SetCalled LEADDICOMNet1.hPDU, "Called Program"
    'set calling application title
    LEADDICOMNet1.SetCalling LEADDICOMNet1.hPDU, "Calling Program"
    'display the current values
    MsgBox LEADDICOMNet1.GetCalled (LEADDICOMNet1.hPDU)
    MsgBox LEADDICOMNet1.GetCalling (LEADDICOMNet1.hPDU)