<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
    Inherits System.Windows.Forms.Form    
 
    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu 
    ' bereinigen.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub
 
    'Wird vom Windows Form-Designer benötigt.
    Private components As System.ComponentModel.IContainer
 
    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer 
    ' erforderlich.
    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.SuspendLayout()
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(23, 34)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(67, 32)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "Label1 ------>"
        '
        'Form1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(216, 185)
        Me.Controls.Add(Me.Label1)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)
 
    End Sub
    Friend WithEvents Label1 As System.Windows.Forms.Label
 
End Class

Public Class Form1
 
    Public Shared Sub Main()
 
        AddHandler Application.ThreadException, AddressOf Problem
        Application.EnableVisualStyles()
        Application.Run(New Form1)
 
    End Sub
 
    Private Shared Sub Problem(ByVal sender As Object, ByVal e As _
      System.Threading.ThreadExceptionEventArgs)
        Stop
    End Sub
 
End Class