SetUserDictionary Example for Visual Basic

Private Sub Command30_Click()
   Dim nRet As Integer
   nRet = RasterDoc.SetUserDictionary (True) 
   If (nRet = 0) Then
      RasterDoc.AddItemToUserDictionary "cities", "Peabody"
      RasterDoc.AddItemToUserDictionary "cities", "Budapest"

      RasterDoc.DictionaryFileName = "USERDIC1.DIC"
      RasterDoc.DictionaryDefaultSection = "cities"
      RasterDoc.DictionaryItemAttribute = USER_DICT_LITERAL

      nRet = RasterDoc.SetUserDictionary (False) 
      If nRet = 0 Then
         MsgBox ("The user dictionary is saved into file")
      End If
   End If
End Sub