como eu usei a colocação de ( ' ) automatica
Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" _
(ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, _
ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long
ficou assim
'Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" _
' (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, _
' ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long
depois de retirado no automático, no botão do editor
ficou assim
Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" _
() ' (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, _
ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long
Postado : 03/04/2015 8:32 am