Ramani,
I am already doing the same
My sequence is From; main.Prg, I am calling a class object, from that object I am calling the Login Screen and if valid Login then Showing the main screen with menu After showing menu I am calling READ EVENTS
Main. Prg
========
oApp = CREATEOBJECT("AIMS"

IF TYPE('oApp') = "O"
oApp.Do()
ENDIF
AIMS.Do()
========
loForm = CREATEOBJECT("user_login"

loForm.Show()
DO WHILE .T.
READ EVENTS
ENDDO
user_login ( Login Logic )
===========================
* // Following code in the Login Button of the Login Screen //
IF Login
oApp.UserName = Upper(ThisForm.logUser.Value)
oApp.AddObject("oMainForm", "MAINFORM"

&& Just a display screen
ThisForm.release()
oApp.oMainForm.Show()
Do (ThisForm.parent.MediaMenu)
ENDIF
All these code are working fine on the development environment, But when Executable is working first of all the Login Screen is not appearing which is modal form ( Rest all forms are modeless, weather this will make any difference )