在VB（Visual Basic）程序设计中，换行可以通过以下几种方式实现：
使用换行符 `vbCrLf`
`vbCrLf` 是一个常量，用于表示一个回车符加换行符，相当于按下Enter键。在字符串中插入换行时，可以使用 `& vbCrLf &` 连接两个字符串。例如：
```vb
Dim str As String
str = "第一行" & vbCrLf & "第二行"
MsgBox str
```
这将在消息框中显示为：
```
第一行
第二行
```
在代码中折断长语句
当一行的代码过长时，可以将该语句折断，规则是在需要折断的地方添加一个空格和一个下划线（_）。例如：
```vb
Dim longText As String
longText = "这是一个非常长的字符串，需要在代码中折断。" & _
"这里是一个下划线，表示折断。" & _
"继续书写下一行代码。"
```
使用 `Print` 语句换行
在VB中，可以使用 `Print` 语句在控制台或窗体上输出内容，并且可以通过在 `Print` 语句后添加 `vbCrLf` 来实现换行。例如：
```vb
Private Sub Form_Click（）
For i = 1 To 10
Print "这是第 " & i & " 行",
If i Mod 2 = 0 Then Print vbCrLf ' 在偶数行换行
Next i
End Sub
```
设置 `MULTILINE` 属性
如果需要在 `TEXT` 控件中换行，可以将 `MULTILINE` 属性设置为 `True`，这样用户就可以直接在 `TEXT` 控件中输入多行文本。例如：
```vb
Dim textBox As TextBox
textBox.MULTILINE = True
textBox.Text = "第一行" & vbCrLf & "第二行"
```
使用 `Wrap` 属性
`Wrap` 属性用于控制文本在 `TEXT` 控件中是否自动换行。如果设置为 `True`，则文本会自动换行；如果设置为 `False`，则文本不会自动换行，而是会出现滚动条。例如：
```vb
Dim textBox As TextBox
textBox.MULTILINE = True
textBox.Wrap = True
textBox.Text = "第一行" & vbCrLf & "第二行"
```
通过以上方法，可以在VB程序中实现换行。建议根据具体需求选择合适的换行方式，以提高代码的可读性和维护性。