VB6 – 如何在运行时捕获异常或错误

我在VB6中开发了一个应用程序.在客户端环境中,它会引发运行时错误,我无法在调试器下重现这些错误.有没有办法得到堆栈跟踪或错误的位置？
我创建了日志文件和

I used
Err.Description,Err.Source
but it gives blank values.

请帮我.

my method(......

    On Error GoTo Error_Handler

             .........
    Error_Handler : 
                  writeToLogFile(Err.Source,Err.Description)

在写入日志文件之前,您可能已经完成了清除Err对象的操作.这非常非常容易.您要做的是,一旦发现错误,请在执行任何其他操作之前获取错误消息.然后将错误消息传递给您正在使用的任何日志记录例程.例如.：

Dim sMsg As String

On Error Goto ErrHandler

' ...code here...

Exit Function

ErrHandler:
sMsg = "Error #" & Err.Number & ": '" & Err.Description & "' from '" & Err.Source & "'"
GoLogTheError sMsg