if (args.HasOption("value"))

value = CBool(GetPrivateProfileInt("Section", "value", 0, path_IniFile)) 'код VB не суть

Public Declare Function GetPrivateProfileString Lib "kernel32" Alias _
 "GetPrivateProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As Any, _
 ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, _
 ByVal lpFileName As String) As Long

Public Function IniKeyExists(Section As String, Key As String, FileName As String) As Boolean

  Dim RetVal As String, v As Long
  Dim retLen As Long
    
  Do
    retLen = retLen + 260 ' arbitrary - can be set higher/lower if desired
    RetVal = Space(retLen)
    v = GetPrivateProfileString(Section, CLng(0), "", RetVal, retLen, FileName)
  Loop Until v < retLen - 2
  ' v = 258 -if buffer is too small -> followed by two null characters (nSize minus two)
    
  'RetVal structure:
  'key1\0
  'key2\0
  '....
  'keyN\0\0
    
    If InStr(Chr(0) & RetVal, Chr(0) & Key & Chr(0)) > 0 Then IniKeyExists = True
End Function

value = IniKeyExists("Options", "value", path_IniFile)

    /** Get if option present.
      Determines whether the option was specified on the command line.

PINLINE PBoolean PArgList::HasOption(const PString & option) const
  { return GetOptionCount(option) != 0; }