hi
is this right to figureout megabytes?


Code:
Dim c As New CIpHelper, R As Double, S As Double

    c.InitInterfaces

    If FirstTime Then
        FirstTime = False
        enviados = Format(c.BytesSent / 1024, ".0")
        recibidos = Format(c.BytesReceived / 1024, ".0")
    Else 'FIRSTTIME = FALSE/0
        R = ((c.BytesReceived / 1024) - recibidos) * 8
        S = ((c.BytesSent / 1024) - enviados) * 8
    End If
    
    Label1.Caption = "U:" & Format(S, ".0")
    Label2.Caption = "D:" & Format(R, ".0")