Version Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub TestVersion ( )
   'check the Associate Class version
   MessageBox.Show("Version: " & CStr(LEADDICOMNet1.GetVersion(LEADDICOMNet1.hPDU)))
   'set the version
   LEADDICOMNet1.SetVersion(LEADDICOMNet1.hPDU, 99)
   MessageBox.Show("Version: " & CStr(LEADDICOMNet1.GetVersion(LEADDICOMNet1.hPDU)))
End Sub