SetVRName example for C++ 6.0 and later

   long lIndex;
   lIndex = 13;
   CString szOut;
   CString szName;
   IDicomVRItemPtr pCurrentVR=NULL;

   //move to the selected VR
   m_pLEADDicomDS->FindIndexVR (lIndex);
   //change the name
   m_pLEADDicomDS->SetVRName ("New VR Name");
   pCurrentVR = m_pLEADDicomDS->GetCurrentVR ();
   BSTR bstr = pCurrentVR->GetName();
   szName = bstr;
   SysFreeString(bstr);
   szOut = "New Name = " + szName;
   AfxMessageBox(szOut);