Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices

Module C
	Public Function IsHiddenMethod(ByVal mi As MethodInfo) As Boolean 
		Dim MethodAttributes As Object() = mi.GetCustomAttributes(GetType(TypeLibFuncAttribute), True)

		If MethodAttributes.Length > 0 Then 
			Dim tlf As TypeLibFuncAttribute = MethodAttributes(0)
			Dim flags As TypeLibFuncFlags = tlf.Value
			Return (flags & TypeLibFuncFlags.FHidden) > 0
		End If 
		Return False 
	End Function 
End Module

using System;
using System.Reflection;
using System.Runtime.InteropServices;

namespace C
{
	class ClassC	
	{
		public static bool IsHiddenMethod( MethodInfo mi )
		{
			object[] MethodAttributes = mi.GetCustomAttributes( typeof( TypeLibFuncAttribute ), true);
		
			if( MethodAttributes.Length > 0 )
			{
				TypeLibFuncAttribute tlf = ( TypeLibFuncAttribute )MethodAttributes[0];
				TypeLibFuncFlags  flags = tlf.Value;
				return ( flags & TypeLibFuncFlags.FHidden ) != 0; 
			}
			return false;
		}
	}
}

using namespace System;
using namespace System::Reflection;
using namespace System::Runtime::InteropServices;

ref class ClassC
{
private:
   static bool IsHiddenMethod( MethodInfo^ mi )
   {
      array<Object^>^MethodAttributes = mi->GetCustomAttributes( TypeLibFuncAttribute::typeid, true );
      if ( MethodAttributes->Length > 0 )
      {
         TypeLibFuncAttribute^ tlf = dynamic_cast<TypeLibFuncAttribute^>(MethodAttributes[ 0 ]);
         TypeLibFuncFlags flags = tlf->Value;
         return (flags & TypeLibFuncFlags::FHidden) != (TypeLibFuncFlags)0;
      }

      return false;
   }
};