_ Partial Class frmTest Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. _ 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. _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.Sub1ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.ContextMenuStrip1.SuspendLayout() Me.SuspendLayout() ' 'ContextMenuStrip1 ' Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.Sub1ToolStripMenuItem}) Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Size = New System.Drawing.Size(99, 26) ' 'Sub1ToolStripMenuItem ' Me.Sub1ToolStripMenuItem.Name = "Sub1ToolStripMenuItem" Me.Sub1ToolStripMenuItem.Size = New System.Drawing.Size(98, 22) Me.Sub1ToolStripMenuItem.Text = "Sub1" ' 'frmTest ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(292, 273) Me.Name = "frmTest" Me.Text = "frmTest" Me.ContextMenuStrip1.ResumeLayout(False) Me.ResumeLayout(False) End Sub Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip Friend WithEvents Sub1ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem End Class