Label1.Text = "编程&论坛"
Label1.Text = Replace(Label1.Text, "&", "&&")
或者是这样:
Dim cc As String = "编程&论坛"
Label1.Text = Replace(cc, "&", "&&")
可能解决楼主的问题吗?

===================================================
讨厌C#的行尾的小尾巴;和一对大括号{ }
===================================================