在你的基础上改。注意 form1.tag为从form1传过来的所选择的风格，
在from1中加代码：
Private Sub Option1_Click(Index As Integer)
    Me.Tag = Index + 1
End Sub

form2中的需要增加的代码
'上为网页
'下为论坛

'风格一：
'<a target=blank href=tencent://message/?uin=398794749&Site=留言的网站名称&Menu=yes><img border="0" SRC=http://wpa. alt="点击这里给我发消息"></a>
'[url=tencent://message/?uin=398794749&Site=留言的网站名称&Menu=yes]点击这里给我发消息[/url]
'风格二：
'<a target=blank href=tencent://message/?uin=398794749&Site=留言的网站名称&Menu=yes><img border="0" SRC=http://wpa. alt="点击这里给我发消息"></a>
'[url=tencent://message/?uin=398794749&Site=留言的网站名称&Menu=yes]点击这里给我发消息[/url]

Private Sub Image3_Click()
    If Text1.Text = "" Then
        MsgBox "QQ号不能为空", 64, "提示"
    Else
        If Text2.Text = "" Then
            MsgBox "留言网站名称不能为空", 64, "提示"
        Else
            If Text3.Text = "" Then
                MsgBox "图片旁的留言不能为空", 64, "提示"
            Else
                str1 = "<a target=blank href=tencent://message/?uin="
                str2 = "&Site="
                str3 = "&Menu=yes><img border=""0"" SRC=http://wpa.
                str4 = " alt="""
                str5 = """></a>"
                Text4.Text = str1 & Text1.Text & str2 & Text2.Text & str3 & Text1.Text & ":" & Form1.Tag & str4 & Text3.Text & str5
            End If
        End If
    End If
End Sub

Private Sub Image5_Click()
    If Text1.Text = "" Then
        MsgBox "QQ号不能为空", 64, "提示"
    Else
        If Text2.Text = "" Then
            MsgBox "留言网站名称不能为空", 64, "提示"
        Else
            If Text3.Text = "" Then
                MsgBox "图片旁的留言不能为空", 64, "提示"
            Else
                str1 = "[img]http://wpa.
                str2 = "[/img][url=tencent://message/?uin="
                str3 = "&Site="
                str4 = "&Menu=yes]"
                str5 = "[/url]"
                Text4.Text = str1 & Text1.Text & ":" & Form1.Tag & str2 & Text1.Text & str3 & Text2.Text & str4 & Text3.Text & str5
            End If
        End If
    End If
End Sub

[url=tencent://message/?uin=398794749&Site=留言的网站名称&Menu=yes]点击这里给我发消息[/url]


晕  [url]怎么不识别？

url 部分给成这样子的   自己改下

url=http://wpa.钟情QQ空间酷站&Menu=yes]点击这里给我发消息[/url



网页代码  如果也 不能用  改成下面样子  我没测试过
<a target=blank href=http://wpa.钟情QQ空间酷站&Menu=yes><img border="0" SRC=http://wpa. alt="点击这里给我发消息"></a>

字符串中出现双引号 用 ""表示一个"  或者用chr()

[[italic] 本帖最后由 simpson 于 2008-1-1 01:26 编辑 [/italic]]

" border="0" />
[url=http://wpa.编程论坛&Menu=yes]有事你就Q我哦![/url]

如果考试考这种题就好了