IsImplementClass Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub TestIsImplementClass ( )
   Const UID_RT_DOSE_STORAGE As String = "1.2.840.10008.5.1.4.1.1.481.2"

   ' Radiotherapy Dose Storage
   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)
      MessageBox.Show(szUID)
      LEADDICOMNet1.SetImplementClass(LEADDICOMNet1.hPDU, False, szUID)
   Else
      'enable it
      LEADDICOMNet1.SetImplementClass(LEADDICOMNet1.hPDU, True, UID_RT_DOSE_STORAGE)
      szUID = LEADDICOMNet1.GetImplementClass(LEADDICOMNet1.hPDU)
      MessageBox.Show(szUID)
   End If
End Sub