|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Windows)
|
|
 |
Título da Dica: Simulando erro fatal no windows
|
 |
|
|
|
Postada em 24/8/2003 por Ð@®l@n
Private Declare Sub FatalAppExit Lib "kernel32" Alias "FatalAppExitA" (ByVal uAction As Long, ByVal lpMessageText As String)
Private Sub Form_Load()
FatalAppExit 0, "Erro fatal gerado pelo programador ! Cuidado !! "
End Sub
|
|
|
|
|
