SendCEchoRequest Example for Visual Basic

    Dim szUID As String
    Dim nID As Integer
    Dim nRet As Integer
    Dim hPDU As Long

    'send an Echo Request Command to the server

    szUID = UID_VERIFICATION_CLASS

    hPDU = LEADDICOMNet1.GetAssociate (LEADDICOMNet1.hNet)

    nID = LEADDICOMNet1.FindPresentationAbstract (hPDU, szUID)
    If (nID = 0) Then
        nRet = LEADDICOM1.FindUID(szUID)
        If (nRet = 0) Then
            MsgBox "Abstract Syntax, " & LEADDICOM1.CurrentUID.Name & ", Not Supported by Association!"
        Else
            MsgBox "Abstract Syntax, " & szUID & ", Not Supported by Association!"
        End If
        Exit Sub
    End If
    
    'now, use the high-level method to send the command set
    LEADDICOMNet1.SendCEchoRequest LEADDICOMNet1.hNet, nID, 99, szUID