IsImplementClass Example for Visual Basic

    Dim szUID As String
    
    'is max len enabled?
    If (LEADDICOMNet1.IsImplementClass (LEADDICOMNet1.hPDU) = True) Then
        'disable it
        'display old value
        szUID = LEADDICOMNet1.GetImplementClass (LEADDICOMNet1.hPDU)
        MsgBox szUID
        LEADDICOMNet1.SetImplementClass LEADDICOMNet1.hPDU, False, szUID
    Else
        'enable it
        LEADDICOMNet1.SetImplementClass LEADDICOMNet1.hPDU, True, UID_RT_DOSE_STORAGE
        szUID = LEADDICOMNet1.GetImplementClass (LEADDICOMNet1.hPDU)
        MsgBox szUID
    End If