求大神帮忙解一道vb题

Private Sub Command1_Click()
If Text3.Text <> Label1.Caption Then '第1空 If Text3.Text <> #####[1]#####.Caption Then
MsgBox "验证码不正确，请重新输入!"
Rem 输入验证码文本框要获得焦点
Text3.SetFocus '第2空 Text3.#####[2]#####
Text3.SelStart = 0 '选择文本框中的所有内容
Text3.SelLength = Len(Text3.Text)
Else
Form1.Hide '第3空 Form1.#####[3]#####
Form2.Show '第4空 #####[4]#####.Show
End If
End Sub
Private Sub Form_Activate()
Dim i As Integer, str1 As String
Randomize
For i = 1 To 4 '产生4位随机大写字母
str1 = str1 + Chr(Int(Rnd() * 26 + 65)) '第5空 str1 = str1 + Chr(Int(Rnd() * 26 + #####[5]#####))
Next i
Label1.Caption = str1
End Sub
Private Sub Form_Load()
Text2.PasswordChar = "*" '密码输入内容显示为“*” '第6空 Text2.#####[6]##### = "*" '密码输入内容显示为“*”
Label1.BorderStyle = 1 '验证码标签的边框为内陷 '第7空 Label1.#####[7]##### = 1 '验证码标签的边框为内陷
End Sub
Rem Text2失去焦点后，验证是否输入密码
Private Sub Text2_LostFocus() '第8空 Private Sub Text2_#####[8]#####()
If Text2.Text = "" Then
MsgBox "请输入密码！"
Text2.SetFocus
End If
End Sub