Como implementar o SEH (manuseio de exceção estruturado) no VB6?

Question

Alguém poderia fornecer um exemplo sobre a implementação do SEH no VB6? Tudo o que vi até agora está em C ++

Answer 1

O Visual Basic 6.0 (e anterior) não implementa o manuseio de exceções estruturadas. Foi introduzido pela primeira vez em Visual Basic .NET (VB 7) Com o seguinte construto:

Try
    ' Logic
Catch e As Exception
    ' Error handling
End Try

De Documentação do MSDN:

No Visual Basic 6.0, você usa o manuseio não estruturado de exceção para lidar com erros em seu código. Colocar a instrução ON ERRO no início de um bloco de código lida com todos os erros que ocorreram nesse bloco. O manuseio não estruturado de exceção também emprega as instruções de erro e retomar.