做了个小软件，关于自动填写表单的问题求助

我刚学VB 有些地方不懂，自己摸索着仿QQ申请器做了一个差不多的程序
最关键的是点一个按钮完事自动填写表单，我不知道怎么设计编程这个代码 
（填写表单的网页是：http://signup.qq.com/intl/zh-hant/）

为了方便说明 我还是截个图吧
 

过程是在“设置/保存QQ”里设置好要填写的内容后，然后点那个“填写”然后能自动填写网页上的表单
现在不明白怎么编代码 .
初到贵宝地，有哪位高手能帮忙编下自动填写这个表单的代码！小弟万分感谢！！！！！！  

--------------------编程问答-------------------- 可以利用Inet控件进行传输 --------------------编程问答-------------------- ding --------------------编程问答-------------------- 自己用百度或 google搜索一下，如下面的例子，自己可以根据http://signup.qq.com/intl/zh-hant/中的源文件修改一下即可。

用vb实现自动填写网页上的表单
Do While brow.Busy 
　　Application.DoEvents() 
Loop 

Public Sub fill() 
　　On Error Resume Next 
　　Do While brow.Busy 
　　　　Application.DoEvents() 
　　Loop 

　　Dim webDoc As Object = brow.Document.all 
　　Dim webTag As Object 
　　Dim lengthTag As Integer = webDoc.length - 1 

　　For countTag As Integer= 0 To lengthTag 
　　　　webTag = webDoc.item(countTag) 
　　　　Select Case Strings.LCase(webDoc.item(countTag).tagname) 
　　　　　　Case "textarea"　　　　　'网页中的文本框 
　　　　　　　　Select Case webTag.name 
　　　　　　　　　　Case "body"　　　'"body"来自网页源代码，不同网站很可能不同，你根据实际修改。下同。 
　　　　　　　　　　　　webTag.value = strBody 　　'这是预先定义的值,下同。 
　　　　　　　 　End Select 

　　　　　　Case "select"　　　　　　　'网页中的下拉选择框 
　　　　　　　　Select Case webTag.name 
　　　　　　　　　　Case "month"　　　'选择月份，这里略去年、日的选择，因为原理相同。 
　　　　　　　　　　　　webTag.all.item(1).selected = True　　'选择第一个值 
　　　　　　　　 End Select 

　　　　　　 Case "input"　　'网页中的输入框 
　　　　　　　　Select Case Strings.LCase(webTag.type) 
　　　　　　　　　　Case "text"　　　　　'文本 
　　　　　　　　　　　　Select Case webTag.name 
　　　　　　　　　　　　　　Case "name", "userid", "nickname" '用户名 
　　　　　　　　　　　　　　　　webTag.value = strName 
　　　　　　　　　　　　　 Case "subject" '标题 
　　　　　　　　　　　　　　　　webTag.value = strSubject 
　　　　　　　　　　　　　　Case "regid" '注册码 
　　　　　　　　　　　　　　　　webTag.value = strRegid 
　　　　　　　　　　　　　　Case "username", "realname" 
　　　　　　　　　　　　　　　　webTag.value = strUsername 
　　　　　　　　　　　　　　Case "cardnumber" 
　　　　　　　　　　　　　　　　webTag.value = strCardNumber 
　　　　　　　　　　　　　　Case "homephone" 
　　　　　　　　　　　　　　　　webTag.value = strHomephone '电话号 
　　　　　　　　　　　　　　Case "url_title" '链接名称 
　　　　　　　　　　　　　　　　webTag.value = urlTitle 
　　　　　　　　　　　　　　Case "url"　　'链接 
　　　　　　　　　　　　　　　　webTag.value = url 
　　　　　　　　　　　　　　Case "email"　'email地址 
　　　　　　　　　　　　　　　　webTag.value = email 
　　　　　　　　　　　　　　Case "img" 　'图片　　 
　　　　　　　　　　　　　　　　webTag.value = img 
　　　　　　　　　　　　　　Case "midi"　　'音乐 
　　　　　　　　　　　　　　　　webTag.value = midi 
　　　　　　　　　　　　　　Case "year"　　'年 
　　　　　　　　　　　　　　　　webTag.value = strYear 
　　　　　　　　　　　　　　Case "prompt" '找回密码提示问题 
　　　　　　　　　　　　　　　　webTag.value = strPrompt 
　　　　　　　　　　　　　　Case "answer" '找回密码答案 
　　　　　　　　　　　　　　　　webTag.value = strAnswer 
　　　　　　　　　　　　End Select 
　　　　　　　　　　Case "password"　　'密码 
　　　　　　　　　　　　Select Case webTag.name 
　　　　　　　　　　　　　　Case "passwd", "password", "confirm", "repasswd" '密码，确认密码 
　　　　　　　　　　　　　　　　webTag.value = strPass 
　　　　　　　　　　　　End Select 
　　　　　　　　　 Case "checkbox"　　'单选框 
　　　　　　　　　　　　Select Case webTag.name 
　　　　　　　　　　　　　　Case "emailme"　　'email通知我 
　　　　　　　　　　　　　　　　webTag.checked = True　　 
　　　　　　　　　　　　End Select 

　　　　　　　　End Select 

　　　　 End Select 
　　 Next 

　　brow.Document.forms(0).submit()　　'许多网页表单，这一句简单代码即实现自动提交 

End Sub 

'如果是单选按钮，则使用vtag.Checked = 0

Public Sub autoAdd() 
　　brow.Silent = True '不弹出窗口 
　　brow.Navigate(http://www.itc8.cn/) '打开指定页 
　　Do While formBrowNetsh.brow.Busy　　'等待网页加载完毕 
　　　　Application.DoEvents() 
　　Loop 
　　Call fill() 
End Sub 

补充：VB ,  控件