VB6 捕捉代码中错误行号

1、打开VB开发环境。

2、点击“打开”。

3、双击窗体，进入代码编辑界面；或者右击窗体，选择“查看代码”，也可以进入代码编辑界面。

4、添加下面的代码：

Private Sub Form_Load()

100   On Error GoTo err1

101   Dim a As Long, b As Long

103   a = 100

104   b = a \ 0

Exit Sub

err1:

   MsgBox "出错行号: " & Erl

End Sub

5、按快捷键F5,运行程序，就可以看到以下效果；