German Problem mit GPS...

Sub Activity_Resume
If GPS1.GPSEnabled = False Then
       ToastMessageShow("GPS Empfänger einschalten.", True)
       StartActivity(GPS1.LocationSettingsIntent) 'Will open the relevant settings screen.
    Else
        GPS1.Start(0, 0) 'Listen to GPS with no filters.
    End If
End Sub

Sub Process_Globals
Dim GPS1 As GPS
End Sub

Sub Activity_Create(FirstTime As Boolean)
    If FirstTime Then
        GPS1.Initialize("GPS")
    End If
End Sub

Sub Activity_Resume
If GPS1.GPSEnabled = False Then
       ToastMessageShow("GPS Empfänger einschalten.", True)
       StartActivity(GPS1.LocationSettingsIntent)
    Else
        GPS1.Start(0, 0) 
    End If
End Sub

Sub Activity_Pause (UserClosed As Boolean)
GPS1.Stop
End Sub

Sub GPS_LocationChanged (location1 As Location)
Dim kmh As Int
Dim mua As Int
kmh=location1.Speed
mua = location1.Altitude
kmh = kmh * 3.6
gpskoordinaten.Text=  "  " & location1.ConvertToMinutes(location1.Latitude) & "  /  " & location1.ConvertToMinutes(location1.Longitude)& "  /  "& mua & "m ü.A." & "  /  " & kmh & " km/h" 
End Sub

Activity.RemoveViewAt(0)
Activity.Finish

GPS1.Start(0,0)