'Botao ACEITO do TERMO
Private Sub BtnVoltar_Click
TimerScrollAviso.Enabled=False
If File.Exists(File.DirDocuments,"termo.dat") Then
Main.NavControl.ShowPage(Config.PageConfig)
Else
File.WriteString(File.DirDocuments, "termo.dat", "EU USUÁRIO DESTE APLICATIVO CONFIRMO QUE LI O TERMO E ACEITEI-O")
DownloadRuas.ShowModule
End If
End Sub