vb 如何选中网页的复选框 (checkbox选定)

'*************************************************************************
'**函 数 名：ReferForm
'**中文意译:表单提交
'**输 入：ByVal WebbrowserA(String) - webbrowser控件名
'** ：ByVal FormType(Integer) - 集合 表单类型
'** ：Optional FormName(String) - 表单名[可选]
'** ：Optional Value(String = "") - 表单值[可选]
'**输 出：无
'**功能描述：
'** :
'**作 者：秋色烽火
'**日 期：2008-01-31 07:46:14
'*************************************************************************
Public Sub ReferForm(ByVal Webbrowser As Webbrowser, ByVal FormType%, Optional ByVal FormName$, Optional ByVal Value$ = "")
'http://www.jcwcn.com/html/CSSHTML/10_43_45_931.htm
'Text = 0; password = 1; textarea = 2; Hidden = 3; CheckBox = 4; submit = 8; button