Visual Basic

EVALUACION:
1°CREAR UNA CARPETA CON SUS APELLIDOS
2° CREAR UN PROYECTO CON SUS APELLIDOS
3°CREAR 2 FORMULARIOS:
3.1 EL 1ER FORMULARIO DEBE DECIR EN SU BARRA DE TITULO: CONTROL
3.2UN TEXTO QUE DIGA: SISTEMA DE ACCESO
3.3 AGREGARON 2 LABEL QUE DIGA:
USUARIO
PASSWORD
3.4 AL LADO DE CADA LABEL TEXTBOX
3.5 UN BOTON DE COMANDO QUE DIGA: VERIFICANDO4° EL TEXTBOX DEL USUARIO DEBE ACEPTAR SOLO 5 LETRAS
PROPIEDAD MAXLENGTH
5 ° EL TEXTBOX DEL PASSWORD NO DEBERA MOSTRAR LO QUE SE DIGITA
PROPIEDAD PASSWORDCHAR-------------------------------------------------
LISTA DE USUARIOS:
PEDRO AUTO
MARIA ESPEJO
KARLA FLOREZ
Ejercicio 01
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
Dim user, pass As String
user = UCase(TextBox1.Text)
pass = UCase(TextBox2.Text)
If user = "" Or pass = "" ThenMsgBox("Faltan datos", MsgBoxStyle.Exclamation, "amiguitooo")
TextBox1.Focus()
Else
Select Case user
Case "PEDRO"
If pass ="auto" Then
Form2.Show()
Else
Me.BackColor = Color.Red

MsgBox("USUARIO NO AUTORIZADO",MsgBoxStyle.Critical, "TE ESTAMOS FILMANDO :D")
Me.Close()
End If
Case "MARIA"
If pass = "espejo" ThenForm2.Show()
Else
Me.BackColor = Color.Red

MsgBox("USUARIO NO AUTORIZADO", MsgBoxStyle.Critical, "TE ESTAMOS FILMANDO :D")Me.Close()
End If
Case "KARLA"
If pass = "florez!" Then
Form2.Show()
Else...