FindPresentationAbstract Example for Visual Basic

    Dim nID As Integer
    Dim hPDU As Long

    'get the associate object for this client computer's connection
    hPDU = LEADDICOMNet1.GetAssociate (LEADDICOMNet1.hNet)

    'find the id for UID_VERIFICATION_CLASS within this association
    'if it is supported by the association
    nID = LEADDICOMNet1.FindPresentationAbstract (hPDU, UID_VERIFICATION_CLASS)
    If (nID = 0) Then
        MsgBox "Not Supported by this association!"
    Else
        MsgBox "Found: " & CStr(nID)
    End If