listNetworksVisible.Clear
Dim r As Boolean
Dim a As Int
r = wifi.ABLoadWifi()
If r = True Then
listNetworksVisible.AddSingleLine("Connected to: " & wifi.ABGetCurrentWifiInfo().SSID)
listNetworksVisible.AddSingleLine("# of networks found: " & wifi.ABNumberOfAvailableWifiNetworks)
For a = 0 To wifi.ABNumberOfAvailableWifiNetworks - 1
listNetworksVisible.AddSingleLine(wifi.ABGetWifiNetwork(a).SSID & " " & wifi.ABGetWifiNetwork(a).Level)
Next
Else
listNetworksVisible.AddSingleLine(wifi.ABWifiLastError)
End If