IsCharacterEnabled Example for Visual Basic

Private Sub Command14_Click()
   Dim i As Long
   Dim nRet As Integer

   MsgBox "Total Select Languages = " + Str(RasterDoc.SelectedLanguagesCount) 

   For i = 0 To RasterDoc.SelectedLanguagesCount - 1
      If RasterDoc.SelectedLanguages (i) = LANGID_ENGLISH Then
         MsgBox ("English is active language")
      End If
   Next i
   
   nRet = RasterDoc.IsCharacterEnabled ("a")
   If nRet = True Then
      MsgBox ("The specified character is available in the selected langauges")
   Else
      MsgBox ("The specified character is not available in the selected langauges")
   End If
End Sub