SoloCodigo

Buenas.. Saludos a los del Foro

Tengo una pequña solucion a como cerrar un formulario para abrir otro:
1) En un modulo realice 2 procedimientos uno para abrir Llamado "Public Sub Main()" y otro para Abrir el formulario Menu llamado AbrirFormularioMenu, les dejo el codigo para que lo analicen
2) es importante que en las propiedades del Proyecto coloquen como formulario inicial el procedimiento Sub Main.
    - Esto se hace haciendo clic derecho al proyecto con el que se esta trabajado, esto es en Explorador de Soluciones.
    - En la pestaña aplicacion Selecciona como objeto inicial Sub Main.
    - Con esto deberias solucionar el problema..
 Dejo Mi correo para cualquier pregunta o sugerencia tonylmedina@hotmail.com

Este es el Modulo
----------------------------------------------------------------------------------------------------
    Module ModuleAbrirSistema
        Public Sub Main()
           Dim f As Form
           f = New Form1
           f.ShowDialog()
        End Sub

        Public Sub AbrirFormularioMenu(ByVal Autenticacion As Boolean)
           If Autenticacion = True Then
               Dim f As Form
               f = New Form2
               f.ShowDialog()
           End If
        End Sub
    End Module
----------------------------------------------------------------------------------------------------

Ahora el formulario que se abre primero se llama Form1 y tiene el siguiente codigo
----------------------------------------------------------------------------------------------------
Public Class Form1
    Private Sub BtnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancelar.Click
        Me.Close()
    End Sub

    Private Sub BtnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAceptar.Click
            If textUsuario="Nombre_Usuario" And textPass="Password" Then
                 Me.Dispose()
                 'Este es un procedimento que esta en el codigo del Modulo anterior
                 AbrirFormularioMenu(True)
            Else
                MsgBox("Usuario o Contraseña Incorrecta")
            End If
    End Sub
End Class
----------------------------------------------------------------------------------------------------