Sub Process_Globals
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim Localit As ESLocation2
Localit.Initialize("Location")
Localit.requestNetworkLocation(0,0)
End Sub
Sub Locationchanged_Location(Longitude As Double, Latitude As Double, Altitude As Double, Accuracy As Float, Bearing As Float, Provider As String, Speed As Float, Time As Long)
Msgbox(Longitude,"Longitude")
End Sub