Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ComboBox1.Items.Add(1)
        ComboBox1.Items.Add(2)
        ComboBox1.Items.Add(3)
        ComboBox1.SelectedIndex = 0

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim a As Integer = 4
        Dim b As Integer = 0
        Dim c As Integer = 3

        c = a / b

        Console.WriteLine("After Exception")

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        Dim a As Integer = 4
        Dim b As Integer = 0
        Dim c As Integer = 3

        c = a / b

        Console.WriteLine("After Exception")

    End Sub