用 Lable 如何实现分段

可以尝试用Replace函数处理一下。

我是有个在ASP。NET中可以用
但是在VB。NET中我不知道怎么改
你看看，下面是个自定义函数，我不知道怎样改（有错）


格式化用户输入信息,保持用户留言的格式
Private Function HTMLEncode(ByVal str As String)
str = str.Replace(">", ">")
str = str.Replace("<", "&lt;")
Dim ch As String
ch = (char)32
str = str.Replace(ch.ToString(), "&nbsp;")
ch = (char)34
str = str.Replace(ch.ToString(), "&quot;")
ch = (char)39
str = str.Replace(ch.ToString(), "&#39")
ch = (char)13
str = str.Replace(ch.ToString(), "")
ch = (char)10
str = str.Replace(ch.ToString(), "<br>")
Return True
End Function