VB6 捕捉代码中错误行号

1、打开VB开发环境。

2、点击“打开”。

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

4、添加下面的代码：Private Sub Form_Load()100 On Error GoTo err1101 Dim a As Long, b As Long103 a = 100104 b = a \ 0Exit Suberr1: MsgBox "出错行号: " & ErlEnd Sub

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