iOS Question B4A & B4I detect if the internet is connected and if it is wifi or cellular network

Sub Process_Globals
  Type tpeCheckInternet(blnIsOnline As Boolean, strType As String)
End Sub

Public Sub CheckInternet() As tpeCheckInternet
    Dim ci As tpeCheckInternet
    ci.Initialize
    ci.strType = "Unknown"
    #if b4a
    Dim jo As JavaObject
    jo.InitializeContext
    Dim cm As JavaObject = jo.RunMethod("getSystemService", Array("connectivity"))
    Dim activeNetwork As JavaObject = cm.RunMethod("getActiveNetworkInfo", Null)
    If activeNetwork.IsInitialized = False Then
      ci.blnIsOnline = False
    Else
      If activeNetwork.RunMethod("isConnected", Null).As (Boolean) = True Then
        If activeNetwork.RunMethod("getType", Null).As (Int) = 1 Then
          ci.blnIsOnline = True
          ci.strType = "WiFi"
        Else
          ci.blnIsOnline = True
          ci.strType = "Cell"
        End If
      Else
        ci.blnIsOnline = False
      End If
    End If
    #Else If b4i
    Dim n As Network
    If n.GetCurrentType = n.TYPE_WIFI Then
        ci.blnIsOnline = True
        ci.strType = "WiFi"
    Else If n.GetCurrentType = n.TYPE_MOBILE Then
        ci.blnIsOnline = True
        ci.strType = "Cell"
    End If
  #End If
  Return ci
End Sub

Sub Process_Globals
    ' These global variables will be declared once when the application starts.
    Dim no As NativeObject
End Sub

Sub Globals
    ' These global variables will be redeclared each time the activity is created.
    Dim cm As ConnectivityManager
End Sub

Sub Activity_Create(FirstTime As Boolean)
    ' Do not forget to load the layout file created with the visual designer. For example:
    ' Activity.LoadLayout("Layout1")
    no.InitializeNewInstance("android.content.ContextWrapper", Array As Object(Activity))
    cm = no.RunMethod("getSystemService:", Array("connectivity"))
   
    CheckInternetConnection
End Sub

Sub CheckInternetConnection
    Dim isConnected As Boolean
    isConnected = IsConnectedToInternet
   
    If isConnected Then
        Log("Internet connection is available.")
        Dim connectionType As String = GetConnectionType
        If connectionType = "WIFI" Then
            Log("Connection type: WiFi.")
        Else If connectionType = "MOBILE" Then
            Log("Connection type: Cellular network.")
        Else
            Log("Unknown connection type: " & connectionType)
        End If
    Else
        Log("No internet connection.")
    End If
End Sub

Sub IsConnectedToInternet As Boolean
    Dim ni As NativeObject
    ni.InitializeNewInstance("java.net.NetworkInterface", Null)
    Dim interfaces As List = ni.RunMethod("getNetworkInterfaces", Null)
    For i = 0 To interfaces.Size - 1
        Dim networkInterface As NativeObject = interfaces.Get(i)
        Dim interfaceName As String = networkInterface.GetField("name").AsString
        If interfaceName.StartsWith("pdp_ip") Or interfaceName.StartsWith("rmnet") Then
            Return True ' Cellular network is connected
        End If
    Next
    Return cm.RunMethod("getActiveNetworkInfo", Null).IsInitialized
End Sub

Sub GetConnectionType As String
    Dim activeNetwork As NativeObject = cm.RunMethod("getActiveNetworkInfo", Null)
    If activeNetwork.IsInitialized Then
        If activeNetwork.GetField("getType") = 1 Then
            Return "WIFI"
        Else
            Return "MOBILE"
        End If
    Else
        Return ""
    End If
End Sub