Spanish Como evitar reinicio de activity al girar el dispositivo (B4A)

    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: portrait
o
    #SupportedOrientations: landscape
en vez de 
    #SupportedOrientations: unspecified

Sub Process_Globals
Dim NombrePaginaWebActual = "" as String
dim NombrePaginaWebInicial = "www.bgssoft.com" ' :D
' -----------------
' -----------------
' -----------------


Sub Activity_Create(FirstTime As Boolean)

if FirstTime then
  CargarPaginaWeb(NombrePaginaWebInicial)
else
  if NombrePaginaWebActual <> "" then
    CargarPaginaWeb(NombrePaginaWebActual)
  else
    CargarPaginaWeb(NombrePaginaWebInicial) ' o la url que decidas
  End if
End if


' -----------------
' -----------------
' -----------------

Sub CargarPaginaWeb(NombrePágina as string)

  WebView1.LoadUrl(NombrePágina)

End Sub



' Evento del WebView
Sub WebView1_PageFinished (Url As String)

  If Url <> "about:blank" Then NombrePaginaWebActual = Url

End Sub