我最初设计的代码是：

Private Sub bianji_Click()
Unload Me
End Sub

Private Sub Command1_Click(Index As Integer)

Shell "explorer.exe http://hi. & n, vbNormalFocus
Shell "explorer.exe javascript:__doPostBack('lbDel_1','')"
End Sub
Private Sub Command2_Click(Index As Integer)
Shell "explorer.exe http://hi. & id2.Text, vbNormalFocus
Shell "explorer.exe javascript:__doPostBack('lbDel_1','')"
End Sub

Private Sub Command3_Click(Index As Integer)
Shell "explorer.exe http://hi. & id3.Text, vbNormalFocus
Shell "explorer.exe javascript:__doPostBack('lbDel_1','')"
End Sub

Private Sub Command4_Click(Index As Integer)
Shell "explorer.exe http://hi. & id4.Text, vbNormalFocus
Shell "explorer.exe javascript:__doPostBack('lbDel_1','')"
End Sub

Private Sub exit_Click()
Unload Me
End Sub


但是此程序不可用，我想设计：
在页面上有10个文本框，每个文本框后有一个删除按钮（也就是说可以同时删除10个帖子）
在文本框内输入帖子UID（如，22222）
然后点击删除，这个帖子就被删除了
我想这样设计
我们论坛每个帖子地址都是http://hi.加上帖子UID
比如http://hi.
我们的删除帖子指令是，在打开的帖子页面的地址栏中输入javascript:__doPostBack('lbDel_1','')，然后敲击回车，（必须是版主才可以）。
请高手帮我设计一下这个程序

请上传工程文件回答
不要上传EXE
谢谢