Форма ввода пароля

 If (My.User.IsAuthenticated) Then
            ' Пользователь уже прошел проверку подлинности, так что просто отобразите главную форму.
            ' Проверка подлинности пользователя не выполнена, поэтому включите пользовательскую проверку подлинности и авторизацию
            Me.Close()
            My.Forms.MainForm.Show()
        End If

Public Class LoginForm1
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        Dim samplePrincipal As New 
        My.User.CurrentPrincipal = samplePrincipal
 
        If (Not My.User.IsAuthenticated) Then
            'Проверьте правильность имени пользователя и пароля с помощью My.User
            Me.UsernameTextBox.Text = String.Empty 
            Me.PasswordTextBox.Text = String.Empty
            MessageBox.Show("Username or password are incorrect")
        Else
            Me.Visible = False 
            My.Forms.MDIParent1.Show() ' MDIParent1 - имя моей MDI DIALOG WINDOW ( ФОРМА ) 
        End If
    End Sub
 
    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close() 
    End Sub
 
    Private Sub LoginForm1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
          If (My.User.IsAuthenticated) Then
            Me.Close() ' закрывается форма "LoginForm1"
            ' в этом месте приводит к тому, что не видна MDI-forma,
            ' открытая нижерасположенном оператторе: 
My.Forms.MDIParent1.Show() 
        End If
    End Sub
 
    Public Sub New()
        InitializeComponent() ' не причина
    End Sub
End Class
 
НИЖЕ ТЕКСТ из ПРИМЕРА – LoginForm
Public Class LoginForm
 
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        Dim samplePrincipal As New SampleIPrincipal(Me.UsernameTextBox.Text, Me.PasswordTextBox.Text)
        My.User.CurrentPrincipal = samplePrincipal
 
        If (Not My.User.IsAuthenticated) Then
            'Проверьте правильность имени пользователя и пароля с помощью My.User
            Me.UsernameTextBox.Text = String.Empty
            Me.PasswordTextBox.Text = String.Empty
            MessageBox.Show("Username or password are incorrect")
        Else
            ' Имя пользователя и пароль правильны, так что отобразите главную форму.
            Me.Visible = False
            My.Forms.MainForm.Show()
        End If
    End Sub
 
    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()
    End Sub
 
    ' Private Sub LoginForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ' ниже я сам поменял лапами 1 убрал в имени LoginForm1_Load
    Private Sub LoginForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Если для текущего пользователя не выполнена проверка подлинности, запросите имя пользователя и пароль и используйте пользовательскую 
        ' пару IPrincipal/IIdentity для выполнения пользовательской проверки подлинности и авторизации. Образец небезопасной 
        ' реализации IPrincipal/IIdentity приведен в примере.
        '
        ' См. веб-страницу [url]http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnnetsec/html/SecNetHT06.asp[/url] для 
        ' получения дополнительных сведений об интерфейсах IPrincipal и IIdentity.
        If (My.User.IsAuthenticated) Then
            ' Пользователь уже прошел проверку подлинности, так что просто отобразите главную форму.
            ' Проверка подлинности пользователя не выполнена, поэтому включите пользовательскую проверку подлинности и авторизацию
            Me.Close()
            My.Forms.MainForm.Show()
        End If
    End Sub
End Class

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "123" Then '123 Пароль
            Form2.Show()
            Me.Hide()
        Else
            MsgBox("Пароль введён не верно", 16, "Попробуй ещё")
            TextBox1.Text = "Пароль"
        End If
    End Sub
End Class