typedef struct _MODE_STATUS {
    BYTE ModeId;
    bool IsRegistered,
    	 IsKeyPresent,
    	 IsWrongHardwareID,
    	 IsKeyExpired,
    	 IsModeExpired,
    	 IsBlackListedKey,
    	 IsModeActivated;
}MODE_STATUS, *PMODE_STATUS;

 extern "C" BOOL  __stdcall CheckKey( char* Key, char* Name, PMODE_STATUS mode_status );

BOOL __stdcall CPP7_Check_LicenseKey(char* Key, char* Name, PMODE_STATUS ModeStatus)
{ 
  return CheckKey(Key, Name, ModeStatus);
}

  Public Declare Function CPP7_Check_LicenseKey Lib "License.dll" _
   (ByVal Key As String, ByVal Name As String, ByRef ModeStatus As MODE_STATUS) As Boolean

 <StructLayout(LayoutKind.Sequential)>
  Public Structure MODE_STATUS
    Dim ModeId As Byte
    Dim IsRegistered As Boolean
    Dim IsKeyPresent As Boolean
    Dim IsWrongHardwareID As Boolean
    Dim IsKeyExpired As Boolean
    Dim IsModeExpired As Boolean
    Dim IsBlackListedKey As Boolean
    Dim IsModeActivated As Boolean
  End Structure

<StructLayout(LayoutKind.Sequential)>
    Public Structure MODE_STATUS
        Dim ModeId As Byte
        <MarshalAs(UnmanagedType.I1)>
        Dim SomeField2 As Boolean 'А может As Byte или ...
    End Structure

  <StructLayout(LayoutKind.Sequential)>
  Public Structure MODE_STATUS
    Dim ModeId As Byte
    <MarshalAs(UnmanagedType.I1)> Dim IsRegistered As Boolean
    <MarshalAs(UnmanagedType.I1)> Dim IsKeyPresent As Boolean
    <MarshalAs(UnmanagedType.I1)> Dim IsWrongHardwareID As Boolean
    <MarshalAs(UnmanagedType.I1)> Dim IsKeyExpired As Boolean
    <MarshalAs(UnmanagedType.I1)> Dim IsModeExpired As Boolean
    <MarshalAs(UnmanagedType.I1)> Dim IsBlackListedKey As Boolean
    <MarshalAs(UnmanagedType.I1)> Dim IsModeActivated As Boolean
  End Structure