Ayuda con forma Login

Hola a todos, alguien me puede decir como puedo hacerle para crear una forma
de login a un sistema. Lo que pasa es que tengo un sistema en el cual
primero necesito que el usuario se identifique y si esta en la bd se le de
acceso al sistema, tengo algo, pero tengo el problema de que la forma de
login siempre se queda activa (en memoria) como le puedo hacer para que se
desaparezca y solo que quede la forma principal del sistema.

Muchas gracias.

Me encontré algo como lo que sigue, pero no me funcionó, o mejor dicho, no
supe como implementarlo, sobre todo la parte del main, ya que la inclui en
mi aplicación y marcó un error.


Public Sub Main()
Dim lofrmInicial As New frmInicial
lofrmInicial.ShowDialog() 'Validar usuario
Dim Resultado As DialogResult
Resultado = lofrmInicial.DialogResult
If Resultado = DialogResult.OK Then
Dim loPrincipal As New frmPrincipal
Application.Run(loPrincipal) 'form principal
End If
End Sub

En el frmInicial:
Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnAceptar.Click
Me.DialogResult = DialogResult.OK
Me.Close()
End Sub
Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnSalir.Click
Me.DialogResult = DialogResult.Cancel
End Sub