Public Class frmMain
  Inherits System.Windows.Forms.Form

  Private CTE As CatchThreadExeption

#Region " Vom Windows Form Designer generierter Code "

  Public Sub New()
    MyBase.New()
    InitializeComponent()

    CTE = New CatchThreadExeption
    AddHandler Application.ThreadException, _
          AddressOf CTE.CatchThreadException
  End Sub
'...
#End Region

  Private Sub btnError_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles btnError.Click
    Dim i As Integer = 2000
    Dim z As Byte = i
  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
    Me.Close()
  End Sub
End Class