Sub Globals
Dim mFragment As MapFragment
Dim gmap As GoogleMap
Dim MapPanel As Panel
Dim GoogleMapsExtras1 As GoogleMapsExtras
Dim TB1 As TabHost
Dim DummyPanel As Panel
Dim TBMapPanel As Panel
Dim L1 As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
TB1.Initialize("Tab1")
Activity.AddView(TB1, 0, 0, 100%x, 100%y)
DummyPanel.Initialize("")
MapPanel.Initialize("")
TBMapPanel.Initialize("")
L1.Initialize("")
L1.Text="Test"
DummyPanel.AddView(L1,0,0,100,50)
TBMapPanel.AddView(MapPanel, 0, 0, 100%x, 100%y)
TB1.AddTab2("Form",DummyPanel)
'Activity.AddView(MapPanel, 0, 0, 100%x, 100%y)
TB1.AddTab2("Map",TBMapPanel)
If mFragment.IsGooglePlayServicesAvailable = False Then
ToastMessageShow("Google Play services not available.", True)
Else
mFragment.Initialize("Map", MapPanel)
End If
End Sub