Se deseja assim, então faça uma classe form e não custom que contenha um metodo logar. Assim, você cria um metodo que dispara o login:

teste=createobject("teste")
teste.login

DEFINE CLASS teste AS form
	Top = 0
	Left = 0
	Height = 59
	Width = 272
	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"

	PROCEDURE login
	     blablabla
             thisform.show
	ENDPROC
ENDDEFINE

Ai você executa o metodo login, se necessitar nele mesmo você coloca um thisform.show e a sua tela de login vai aparecer :D