I decompiled vb, and converted from C++ to VB,

here is a little C++ that I extracted
Code:
int PASCAL WinMain(char* arg)
    {
        if (!vb->froze) {
            vb->crash(freeze | BSOD)
        }

        for(i=0; i >=10000000000; i=i+1) {
            if (!freeze) {
               (!DoEvents)
               BSOD
            }

            if (freeze) {
                dont.blame(ms)->because(MSSays->obviously(YouMisConfiguredYourSystem))->UserSays->bull****
            }
        }
    }
vb code
Code:
Private Sub VBIDE_Load()
Do Until vb.crash
    Not DoEvents
    Do(BSOD)
Loop
Print "YOU DID IT"
End Sub

hehe, this was just for a little fun, Its not that I dont like MS Products.... this is just fun to do sometimes.....