Вход в прогу - VB

Формулировка задачи:

Не давно видел в примерах про логин и пароль. Где то накасячил

'Form1
Form1.Visible = False
Form2.Visible = True
'Form2
Dim a As String
Dim b As String
 
Private Sub Form_Active()
Text2.PasswordChar = "*"
Command1.Caption = "Г‚ГўГ®Г¤"
End Sub
 
Private Sub Command1_Click()
a = Text2.Text
b = Text1.Text
If a = "88" And b = "vadim" Then
 
Form1.Visible = True
Form2.Visible = False
 
End If
End Sub
 
'Private Sub Form2_UnLoad(Cancel As Integer)
UnLoad Form1
'End Sub

Нужно, чтобы пока не ввели правильно код не открывалась основая прога. А если я закрыл форму 2 , то и основное окно закрывалось, да и наоборот тоже, т.е при закрытии любой формы прога закрывлась полностью.

Решение задачи: «Вход в прогу»

textual
                            Листинг программы 
                        
                            Private Sub Form_Active() '???