IsImplementVersion Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub TestIsImplementVersion ( )
   Dim szVersion As String

   If (LEADDICOMNet1.IsImplementVersion(LEADDICOMNet1.hPDU) = True) Then
      'disable it 'display old value
      szVersion = LEADDICOMNet1.GetImplementVersion(LEADDICOMNet1.hPDU)
      MessageBox.Show(szVersion)
      LEADDICOMNet1.SetImplementVersion(LEADDICOMNet1.hPDU, False, szVersion)
   Else
      'enable it
      LEADDICOMNet1.SetImplementVersion(LEADDICOMNet1.hPDU, True, "v13.0")
      szVersion = LEADDICOMNet1.GetImplementVersion(LEADDICOMNet1.hPDU)
      MessageBox.Show(szVersion)
   End If
End Sub