Problem with Sub Main

[kalaHasti]

I have a sub Main() as the start up for my project.

Module Module1
    Public Sub Main()
        Dim myForm As New FrmLogin()
        'do something
        myForm.Show()
        myForm.Activate()
    End Sub
End Module

It shows the FrmLogin, and then the application exits.
Why it happens like this and how to make the application to run?

I have place the typical login entry controls in the FrmLogin form, with no code written by me.