在 Visual Basic 6.0 和更早的版本中，Any 数据类型用在 Declare 语句中，以允许使用可包含任意数据类型的参数。 Visual Basic 支持重载，但也因此使得 Any 数据类型过时。

**错误 ID：**BC30828

更正此错误

1. 声明要使用的特定类型的参数；例如：

   VB复制

    

   Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (
       ByVal lpBuffer As String,
       ByRef nSize As Integer) As Integer
   

2. 如果调用的过程需要 Void*，请使用 MarshalAsAttribute 特性指定 As Any。

   VB复制

    

   Declare Sub SetData Lib "..\LIB\UnmgdLib.dll" (
       ByVal x As Short,
       <System.Runtime.InteropServices.MarshalAsAttribute(
           System.Runtime.InteropServices.UnmanagedType.AsAny)>
           ByVal o As Object)