Label1.Text = "编程&论坛" Label1.Text = Replace(Label1.Text, "&", "&&")
Dim cc As String = "编程&论坛" Label1.Text = Replace(cc, "&", "&&")