GetApplication Example for Visual Basic

    Dim hPDU As Long
    
    hPDU = LEADDICOMNet1.GetAssociate (LEADDICOMNet1.hNet)
    'display current Application Context
    MsgBox LEADDICOMNet1.GetApplication (hPDU)
    'change it
    LEADDICOMNet1.SetApplication hPDU, "9.9.999.99999.9.9.9.9"
    MsgBox LEADDICOMNet1.GetApplication (hPDU)