Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As Integer = 999999
Dim b As Integer = 999999
a = a * b
End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim o As Integer = 0
        Dim i As Integer = 1 / o
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MsgBox("Test")
    End Sub

<Бла Бла Бла>
'WindowsApplication2.vshost.exe' (Managed (v4.0.30319)): Loaded 'C:\Windows\Microsoft.Net\assembly\GAC_MSIL\Microsoft.VisualBasic\v4.0_10.0.0.0__b03f5f7f11d50a3a\Microsoft.VisualBasic.dll', Skipped loading symbols. Module is optimized and the debugger option 'Just My Code' is enabled.
'WindowsApplication2.vshost.exe' (Managed (v4.0.30319)): Loaded 'C:\Windows\Microsoft.Net\assembly\GAC_MSIL\mscorlib.resources\v4.0_4.0.0.0_ru_b77a5c561934e089\mscorlib.resources.dll', Skipped loading symbols. Module is optimized and the debugger option 'Just My Code' is enabled.
The thread 'vshost.NotifyLoad' (0x11dc) has exited with code 0 (0x0).
The thread '<No Name>' (0x2438) has exited with code 0 (0x0).
The thread 'vshost.LoadReference' (0x1498) has exited with code 0 (0x0).
'WindowsApplication2.vshost.exe' (Managed (v4.0.30319)): Loaded 'D:\Projects\WindowsApplication2\WindowsApplication2\bin\Debug\WindowsApplication2.exe', Symbols loaded.
'WindowsApplication2.vshost.exe' (Managed (v4.0.30319)): Loaded 'C:\Windows\Microsoft.Net\assembly\GAC_MSIL\System.Runtime.Remoting\v4.0_4.0.0.0__b77a5c561934e089\System.Runtime.Remoting.dll'
A first chance exception of type 'System.OverflowException' occurred in WindowsApplication2.exe

    Private Sub Form1_Leave(sender As Object, e As EventArgs) Handles Me.Leave
        Error1()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Error1()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MsgBox("Test")
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Error1()
    End Sub

    Private Sub Error1()
        Dim o As Integer = 0
        Dim i As Integer = 1 / o
    End Sub