RemoveItemFromUserDictionary Example for Visual Basic

Private Sub Command32_Click()
   Dim nRet As Integer

   nRet = RasterDoc.RemoveItemFromUserDictionary ("cities", "Peabody")
   If (nRet = 0) Then
      RasterDoc.DictionaryFileName = "USERDIC1.DIC"
      RasterDoc.DictionaryDefaultSection = "cities"
      RasterDoc.SetUserDictionary (False) 
   End If
End Sub