Question

vb6程序自动转换到vb.net的问题

'UPGRADE_ISSUE: 不支持将参数声明为“As Any”。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1016"”
Private Declare Function RasEnumConnections Lib "rasapi32.DLL" Alias "RasEnumConnectionsA"(ByRef lprasconn As Any, ByRef lpcb As Integer, ByRef lpcConnections As Integer) As Integer
'UPGRADE_ISSUE: 不支持将参数声明为“As Any”。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1016"”
Private Declare Function RasEnumEntries Lib "rasapi32.DLL" Alias "RasEnumEntriesA"(ByVal reserved As String, ByVal lpszPhonebook As String, ByRef lprasentryname As Any, ByRef lpcb As Integer, ByRef lpcEntries As Integer) As Integer
Private Declare Function RasHangUp Lib "rasapi32.DLL" Alias "RasHangUpA"(ByVal hRasConn As Integer) As Integer

Answer 1

<Marsharl As UnmanagedType.Any> As Object

VB6.0中的As Any，在VB.NET里用Object代替，前面加上<Marsharl As XXX>属性，有提示的，自己看吧

Answer 2

<Marsharl
As
UnmanagedType.Any>
As
Object
VB6.0中的As
Any，在VB.NET里用Object代替，前面加上<Marsharl
As
XXX>属性，有提示的，自己看吧

Answer 3

As Integer 可以