第二问

’------------------------------------这里是定义字体和颜色

Dim font1 As New Font("楷体",9,FontStyle.Underline)
Dim font2 As New Font("宋体",6,fontstyle.Regular)
Dim font3 As New Font("雅黑",12,fontstyle.Regular)

\'--------------------------------------定义字体和颜色结束

问题 1.翻译下  下面代码的含义  还有就是他怎么实现换行的？

    text1.Selectionfont = font1
    text1.Selectioncolor = color.Green
    text1.SelectedText = dr("发信人")&"  "
    text1.Selectionfont = font2
    text1.Selectioncolor = color.blue
    text1.SelectedText = dr("时间") & "说道:" & vbcrlf
    text1.Selectedrtf = dr("内容") \'& vbcrlf

   

    执行上面的代码执行后是这样的

    张三 2017/3/18/   15：20：04 说道：

    “内容”

  问题 2.是很知道他是怎么实现换行的..没看到换行符，

  问题3.vbcrlf 这个变量是哪蹦出来的.（这个代码在论坛是通用的小学生写的内部QQ）