Visual Basic.NET - Varias cuestiones

1º Tengo el siguiente codigo

Dim oPrincipal As New frmPrincipal
Me.Close()
oPrincipal.Show()

Lo que me hace es cerrar el formulario actual y no me abre el principal, si
quito el me.close me sale el principal pero se me crea en la barra de tareas
otro sitio es decir me aparece el formulario inicial y el principal, lo que
yo quiero es que tan solo aparezca en la barra de tareas en el form en el
que yo este es decir si yo estoy en el A en la barra de tareas aperece A,
pero cuando entre en B, desaparezca A y aparezca A,

2º Que visto que en vb.net crea pone por defecto ,aunque tu le hayas dado un tamaño, un tamaño predeterminado de icono,y yo pregunto hay alguna forma de que ese icono sea un pelin mas grande es que he puesto un icono de 50 x 50 y en el formulario no se ve nada,, se ve borrosa

3º Tengo este codigo:

Private Sub cmdAccept_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAccept.Click
Dim nintento As Integer
nintento = 3
While nintento <> 0
If Me.txtPassword.Text = "nf43hwl3" Then
Dim oPrincipal As New frmPrincipal
Me.Close()
oPrincipal.Show()
Else
MsgBox("Clave no correcta", MsgBoxStyle.OKOnly + MsgBoxStyle.Critical, "Dispone de " & nintento & " más")
Me.txtPassword.Text = ""
Me.txtPassword.Focus()
End If
nintento = -nintento
End While
Me.Close()
End Sub

En el que doy 3 intentos para poder entrar si no introduce bien la clave lo que pasa es que se me queda en el msgbox a la primera, y no sale de ahi

Perdonar por si soy un poco pesado, gracias y Feliz Año nuevo

al cerrar tu formulario principal tambien cierras tu aplicacion, prueba con ocultarlo
Dim oPrincipal As New frmPrincipal
Me.hide()
oPrincipal.Show()
y creo que en vez de nintento = -nintento pondria
nintento = nintento -1
end sub
y no me queda claro que necesites ocupar un while, podria ser

Dim nintento As Integer = 3
Private Sub cmdAccept_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAccept.Click
if nintento <> 0
If Me.txtPassword.Text = "nf43hwl3" Then
Dim oPrincipal As New frmPrincipal
Me.hide()
oPrincipal.Show()
Else
MsgBox("Clave no correcta", MsgBoxStyle.OKOnly + MsgBoxStyle.Critical, "Dispone de " & nintento & " más")
Me.txtPassword.Text = ""
Me.txtPassword.Focus()
End If
nintento = nintento - 1
exit sub
else
'mensaje que terminaron sus intentos
Me.Close()
end if
End Sub

suerte...