Simulando um erro FATAL no Visual Basic . ( nunca diga eu nunca vou precisar disto...

Você já teve o 'prazer de ver' , durante a execução de um dos seus aplicativos aquela maravilhosa tela branca de erro fatal que te dá as seguintes opções : Fechar , Fechar ou Fechar... ?

Para simular um crash no seu programa faça o seguinte:

1-) Inicie um novo projeto no VB e insira um módulo ao projeto

2-) Insira o seguinte código no módulo inserido:

  Fig 2.0 - Tela gerada pelo código abaixo
Declare Sub FatalAppExit Lib "kernel32" Alias "FatalAppExitA" (ByVal uAction As Long, ByVal lpMessageText As String)

3-) Agora insira o código a seguir onde melhor lhe convier : num botão de comando , num evento de formulário, enfim você decide...

FatalAppExit 0, "Erro fatal gerado pelo programador  ! Cuidado !! "

Execute o projeto e acione o código acima. Voce deverá obter a simpática tela da fig 2.0 acima.