在VB（Visual Basic）中创建死循环有多种方法，以下是几种常见的方式：
使用 `Do While...Loop` 语句
`Do While...Loop` 语句会一直执行循环体内的代码，直到 `While` 或 `Until` 条件变为 `False`。如果不加任何条件，这个循环将永远执行下去，导致死循环。
```vb
Private Sub Form_Load（）
Dim i As Integer
Do While True
' 这里可以放置你想无限执行的代码
MsgBox（"这是一个死循环"）
Loop
End Sub
```
使用 `While...Wend` 语句
`While...Wend` 语句与 `Do While...Loop` 类似，也是无限循环，直到 `Wend` 语句被执行。
```vb
Private Sub Form_Load（）
Dim i As Integer
While True
' 这里可以放置你想无限执行的代码
MsgBox（"这是一个死循环"）
Wend
End Sub
```
使用 `For...Next` 循环
`For...Next` 循环可以设置一个上限，但如果上限设置为 `1E+40` 或更大的数值，实际上也会导致死循环，因为这样的循环会一直执行而不停止。
```vb
Private Sub Form_Load（）
For i = 1 To 1E+40
' 这里可以放置你想无限执行的代码
Next i
End Sub
```
使用 `Do...Loop While` 语句
`Do...Loop While` 语句与 `Do While...Loop` 类似，但循环体至少会执行一次，然后再检查条件是否为 `True`。
```vb
Private Sub Form_Load（）
Dim i As Integer
Do
' 这里可以放置你想无限执行的代码
MsgBox（"这是一个死循环"）
Loop While True
End Sub
```
使用 `While...Wend` 循环
`While...Wend` 循环与 `While...Wend` 类似，但循环体至少会执行一次，然后再检查条件是否为 `True`。
```vb
Private Sub Form_Load（）
Dim i As Integer
While i < 2
' 这里可以放置你想无限执行的代码
MsgBox（"这是一个死循环"）
i = 1
Wend
End Sub
```
注意事项：
死循环会消耗大量的CPU资源，可能导致系统性能下降或死机。
在实际应用中，应尽量避免编写死循环，除非有特定的需求。
如果需要退出循环，可以使用 `Exit Do`、`Exit For` 等语句。
示例代码：
```vb
Private Sub Form_Load（）
Dim i As Integer
Do While True
' 这里可以放置你想无限执行的代码
MsgBox（"这是一个死循环"）
Loop
End Sub
```
这个代码会在窗体加载时启动一个无限循环，每次循环都会弹出一个消息框提示“这是一个死循环”。