424 런타임오류 ... 소스더추가

Private Sub Command1_Click()Form2.Show If StrComp(Text1.Text, 20121117) = 0 Then If StrComp(Text2.Text, 20121117) = 0 Then MsgBox 암호가 일치합니다!, vbOK, 암호 일치 Else MsgBox 암호가 틀립니다!, vbOK, 암호 불일치 End If ElseIf StrComp(Text1.Text, jane) = 0 Then If StrComp(Text2.Text, jane) = 0 Then MsgBox 암호가 일치합니다!, vbOK, 암호 일치 Else MsgBox 암호가 틀립니다!, vbOK, 암호 불일치 End If Else: MsgBox 등록되지 않은 사용자 입니다!, vbOK, 등록 확인 End If Text1.Text = Text2.Text = Text1.SetFocusEnd SubPrivate Sub Label_Click() Caption = 비밀번호 입력 프로그램 Lable1.Caption = username Lable2.Caption = password Lable1.AutoSize = True Lable2.AutoSize = True Text2.PasswordChar = * Command1.Caption = login Text1.Text = Text2.Text = End Sub