'Here you go try this
Sub Activity_Resume
Dim LblCurrentWifiInfo, WifiNetwork As Label
LblCurrentWifiInfo.Initialize(Null)
WifiNetwork.Initialize(Null)
Activity.AddView(LblCurrentWifiInfo, 0dip, 0dip, 100%x, 40dip)
Activity.AddView(WifiNetwork, 0dip, 50dip, 100%x, 40dip)
Dim r As Boolean
r = myWifi.ABLoadWifi()
If r = True Then
'Msgbox (myWifi.ABGetCurrentWifiInfo().SSID, "")
LblCurrentWifiInfo.Text = myWifi.ABGetCurrentWifiInfo().SSID
Dim a As Int
For a = 0 To myWifi.ABNumberOfAvailableWifiNetworks - 1
'Msgbox (myWifi.ABGetWifiNetwork(a).SSID & " " & myWifi.ABGetWifiNetwork(a).Level, "")
WifiNetwork.Text = myWifi.ABGetWifiNetwork(a).SSID & " " & myWifi.ABGetWifiNetwork(a).Level
Next
Else
Msgbox(myWifi.ABWifiLastError,"")
End If
End Sub