Message = Replace(Replace(Replace(Message, vbCrLf, ""), vbLf, ""), vbCr, "")

Public Property Let UseEmotes(ByVal value As Boolean)
Emotes = value
PropertyChanged "UseEmotes"
End Property

Public Property Get ShowURLs() As Boolean
ShowURLs = sLinks
End Property

Message = Replace(Replace(Replace(Message, vbCrLf, ""), vbLf, ""), vbCr, "")
'将message串中回车换行符替换成空
'设置属性
Public Property Let UseEmotes(ByVal value As Boolean)
Emotes = value
PropertyChanged "UseEmotes"
End Property

'返回属性值
Public Property Get ShowURLs() As Boolean
ShowURLs = sLinks
End Property

谢谢