RETORNAR LINHA DO ERRO

NPROG 14/09/2011 15:26:27
#384252
Olá pessoa!
Alguém sabe se tem algo do vb6 que retorna a linha que ocorreu algum erro?
achei na net o cStr(ERL) mas não funcionou aqui
KERPLUNK 14/09/2011 15:33:22
#384254
Vc tem que numerar as linhas, uma a uma... talvez tenha algum processo que faça isso automaticamente.
NPROG 14/09/2011 15:39:38
#384257
tipo por um contador que incremente linha por linha e retornar ele na hora do erro?

isso iria dar muito trabalho e muito processamento desnecessário, deve ter outro modo.
KERPLUNK 14/09/2011 16:12:12
#384262
Não, assim:
10 On Error GoTo erro
20
30 MsgBox 10 / 0
40
50
60 MsgBox 10 / 0
70
Exit Sub

erro:
MsgBox Err.Description & [Ô] na linha [Ô] & Erl
Resume Next
NPROG 14/09/2011 18:21:13
#384280
este código

Private Sub Form_Load()
On Error GoTo trata

MsgBox 10 / 0

Exit Sub

trata:
MsgBox [Ô]Linha: [Ô] & Erl

End Sub

não funciona pois ele retorna [Ô]Linha: 0[Ô], o que estou fazendo de errado?
NPROG 21/09/2011 17:33:16
#384892
vlw a ajuda, numerando as linhas funcionou bem
Tópico encerrado , respostas não são mais permitidas