Queria manter Login Ativo

[Jhonny (Jhonny Mecklay dos Santos)]

Boa tarde. Fiz uma tela Inicial como vários botões para acionar outras telas. Mas para acessar essas novas telas precisar passar um tela que acionar o login. Teria como manter o login ativo sem necessidade de passar por essa tela de login? Sendo que essa tela de login voltasse só quando o usuário realizar logout.

[leandrobpedro (Leandro)]

	If ( Application.User = "" ) Then
		# Chama tela de login.
	End If

[Jhonny (Jhonny Mecklay dos Santos)]

Obg. Mas encontrei a resposta para meu caso.

Sub Texto2_Click()
If Application.User = “” Then
a = Application.Login(False)
If a = True Then
Application.GetFrame("").OpenScreen(“Quadro1”), 0
Else
MsgBox “Não há usuário ativo!”
End If
ElseIf Application.User <> “” Then
Application.GetFrame("").OpenScreen(“Quadro1”), 0
End If
End Sub