IsImplementVersion Example for Visual Basic

    Dim szVersion As String
    
    If (LEADDICOMNet1.IsImplementVersion (LEADDICOMNet1.hPDU) = True) Then
        'disable it
        'display old value
        szVersion = LEADDICOMNet1.GetImplementVersion (LEADDICOMNet1.hPDU)
        MsgBox szVersion
        LEADDICOMNet1.SetImplementVersion LEADDICOMNet1.hPDU, False, szVersion
    Else
        'enable it
        LEADDICOMNet1.SetImplementVersion LEADDICOMNet1.hPDU, True, "v13.0"
        szVersion = LEADDICOMNet1.GetImplementVersion (LEADDICOMNet1.hPDU)
        MsgBox szVersion
    End If