主题：在代码中拆分和合并语句

If e.name = "成绩" Then
    e.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
    e.ProjectPath & "成绩数据.mdb;Persist Security Info=False"
End If

上面的代码完全等效于：

If e.name = "成绩" Then
    e.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "成绩数据.mdb;Persist Security Info=False"
End if

Dim s As String
s = "新华网绵阳5月16日电(记者孙承斌)16日上午,在四川抗震救灾的" & _
    "危急时刻,中2共中央总书!记、国家主席、中央军委主席胡涛乘飞机赶往四川" & _
    "省地震灾区,慰问灾区干部群众,看望奋战在抗震救灾第一线的部队官兵，公" & _
    "安民警和医护人员,指导抗震救灾工作。"

注意:

行继续符必须是一行上最后的字符，在同一行上，行继续符后不能跟有任何其他内容。
单个参数名必须保持完整，不能在参数名中间使用行继续符
不能使用行继续符来拆分注释，注释开始后，编译器将不检查字符是否具有特殊含义。要将注释拆分为多行，请在每行的前面重复使用注释符号 (')。

将多个语句置于同一行

虽然我们的建议是让每条语句各占一行，但是Visual Basic同样允许在同一行上放置多条语句。
用冒号 (:) 将各语句分开，如下面的示例所示：

text1.Text = "Hello" : text1.BackColor = System.Drawing.Color.Red

上面的代码等效于：

text1.Text = "Hello"
text1.BackColor = System.Drawing.Color.Red