Sub Process_Globals
Dim myWifi As ABWifi
End Sub
Sub Globals
Dim Button1 As Button
End Sub
Sub Button1_Click
Dim r As Boolean
r = myWifi.ABGetLocation("myWifi")
If r = False Then
Msgbox (myWifi.ABWifiLastError(), "")
End If
End Sub
Sub myWifi_FoundLocation ()
Dim ResLocation As ABFoundLocation
resLocation = myWifi.ABGetFoundLocation()
Msgbox ("" & ResLocation.Latitude & " - " & ResLocation.Longitude, "")
End Sub