ReceivedError never fired, i solved my problem using:
Sub CheckConnection As BooleanDim r AsReflector
r.Target = r.GetContext
r.Target = r.RunMethod2("getSystemService", "connectivity", "java.lang.String")
r.Target = r.RunMethod("getActiveNetworkInfo")
If r.Target <> NullThen
Return r.RunMethod("isConnectedOrConnecting")
EndIf
Return False
End Sub