VB代码,是做论坛登录的,这段代码里怎么加入像效果图片的安全提问?


以下是代码
Private Sub Command1_Click()
Set vdoc = WebBrowser1.Document
For I = 0 To vdoc.All.length - 1
If UCase(vdoc.All(I).tagName) = "INPUT" Then
Set vtag = vdoc.All(I)
If vtag.Type = "text" Then
If vtag.Name = "username" Then vtag.Value = Text1.Text
ElseIf vtag.Type = "password" Then
vtag.Value = Text2.Text
End If
End If
Next I
For I = 0 To vdoc.All.length - 1
If LCase(vdoc.All(I).tagName) = "button" Then
Set vtag = vdoc.All(I)
If vtag.Type = "submit" And vtag.Name = "loginsubmit" Then  '提交按钮
vtag.Click
Exit For
End If
End If
Next I
End SubPrivate Sub Form_Load()
WebBrowser1.Navigate "登陆地址"
End Sub 
我是用WebBrowser提交表单的,可是有安全提问的帐号就不能用了,怎么设置这个安全提问?怎么提交?