Afsluiten van form lukt niet

Friend Class LoginForm1
    Inherits System.Windows.Forms.Form
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        'this is the place to create a Username and/or a Password
        'to change the Username change the text "My Username" or "My Other Username"
        'to change the password change the text "Password" or "Other Password"
        If UsernameTextBox.Text = "hitgigant" And PasswordTextBox.Text = "w8w00rd" Then

            Form1.ShowDialog()
            Me.Close()
        Else : MsgBox("Verkeerde gebruikersnaam of wachtwoord")
        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
End Class

Friend Class LoginForm1
    Inherits System.Windows.Forms.Form
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        'this is the place to create a Username and/or a Password
        'to change the Username change the text "My Username" or "My Other Username"
        'to change the password change the text "Password" or "Other Password"
        If UsernameTextBox.Text = "hitgigant" And PasswordTextBox.Text = "w8w00rd" Then
 
            Form1.ShowDialog()
            Me.Close()
        Else : MsgBox("Verkeerde gebruikersnaam of wachtwoord")
        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
End Class

Friend Class LoginForm1
    Inherits System.Windows.Forms.Form
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        'this is the place to create a Username and/or a Password
        'to change the Username change the text "My Username" or "My Other Username"
        'to change the password change the text "Password" or "Other Password"
        If UsernameTextBox.Text = "hitgigant" And PasswordTextBox.Text = "w8w00rd" Then

            Me.Hide()
            Form1.ShowDialog()
            Me.Close()
        Else
            MsgBox("Verkeerde gebruikersnaam of wachtwoord")
        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
End Class

Friend Class LoginForm1
    Inherits System.Windows.Forms.Form
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        'this is the place to create a Username and/or a Password
        'to change the Username change the text "My Username" or "My Other Username"
        'to change the password change the text "Password" or "Other Password"
        If UsernameTextBox.Text = "hitgigant" And PasswordTextBox.Text = "w8w00rd" Then
 
            Me.Hide()
            Form1.ShowDialog()
            Me.Close()
        Else
            MsgBox("Verkeerde gebruikersnaam of wachtwoord")
        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
End Class