'Inet
Public Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Public Declare Function RasEnumConnections Lib "rasapi32" Alias "RasEnumConnectionsA" (ByVal lpRasConn As Long, ByVal lpcb As Long, ByVal lpcConnections As Long) As Long
Public Declare Function RasGetConnectionStatistics Lib "rasapi32" (ByVal hRasConn As Long, ByVal lpStatistics As Long) As Long

Global conn As RasConn
Global stat As RAS_STATS
Global Y As Long, z As Long

'Inet
Public Const INTERNET_CONNECTION_MODEM_BUSY As Long = &H8
Public Const INTERNET_RAS_INSTALLED As Long = &H10
Public Const INTERNET_CONNECTION_OFFLINE As Long = &H20
Public Const INTERNET_CONNECTION_CONFIGURED As Long = &H40

'tipos para detectar la conexion
Public Type RasConn
    dwSize As Long
    hRasConn As Long
    szEntryName(0 To 256) As Byte
    szDeviceType(0 To 16) As Byte
    szDeviceName(0 To 128) As Byte
    pad As Byte
End Type

'tipo para saber todas las actividades sobre el modem (bits enviados, recibidos, tiempo, etc...)
Public Type RAS_STATS
    dwSize As Long
    dwBytesXmited As Long
    dwBytesRcved As Long
    dwFramesXmited As Long
    dwFramesRcved As Long
    dwCrcErr As Long
    dwTimeoutErr As Long
    dwAlignmentErr As Long
    dwHardwareOverrunErr As Long
    dwFramingErr As Long
    dwBufferOverrunErr As Long
    dwCompressionRatioIn As Long
    dwCompressionRatioOut As Long
    dwBps As Long
    dwConnectDuration As Long
End Type

Private Sub Form_Load()
conn.dwSize = Len(conn)
Y = conn.dwSize

'esta parte del code parece una idiotez pero sin esto no funca :S
If RasEnumConnections(VarPtr(conn), VarPtr(Y), VarPtr(z)) = 0 Then stat.dwSize = Len(stat)
If RasGetConnectionStatistics(conn.hRasConn, VarPtr(stat)) = 0 Then
End If
    MsgBox "tamaño " & stat.dwSize
    MsgBox "tras " & stat.dwBytesXmited
    MsgBox "recibidos " & stat.dwBytesRcved
    MsgBox "ped trans " & stat.dwFramesXmited
    MsgBox "ped reci " & stat.dwFramesRcved
    MsgBox "error " & stat.dwCrcErr
    MsgBox "error time " & stat.dwTimeoutErr
    MsgBox "otro error " & stat.dwAlignmentErr
    MsgBox "+ erorro " & stat.dwFramingErr
    MsgBox "buffer " & stat.dwBufferOverrunErr
    MsgBox "compresion in" & stat.dwCompressionRatioIn
    MsgBox "compresion out" & stat.dwCompressionRatioOut
    MsgBox "velo " & stat.dwBps
    MsgBox "duracion " & stat.dwConnectDuration
end sub