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

Hola:

El Public Sub Main() lo pones en un modulo
Luego vas a Proyecto-Propiedades-Objeto Inicial:
Sub Main y ejecuta la aplicacion

Espero que te sirva
Un saludo desde Bilbo:
Carlos

"Omar Flores" escribió en el mensaje
news:%

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