Public Class frmMnuXXX
 
 
    Dim mns As New MenuStrip With _
      {.Parent = Me, .Width = 100, .Top = 0, .Dock = DockStyle.Right}
 
    Dim WithEvents mnu_it1 As New ToolStripMenuItem With {.Text = "Item 1"}
 
    Dim WithEvents mnu_it11 As New ToolStripMenuItem With _
        {.Text = "Items 1.1 " & Microsoft.VisualBasic.vbCrLf & "(und ein" & _
        "relativ langer Itemtext)"}
    Dim mnu_it12 As New ToolStripMenuItem With {.Text = "Item 1.2"}
 
 
    Private Sub frmButtons_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        mnu_it1.DropDownItems.Add(mnu_it11)
        mnu_it1.DropDownItems.Add(mnu_it12)
        mns.Items.Add(mnu_it1)
 
        Me.Width = 300
        Me.MaximizeBox = False
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D
 
    End Sub
 
End Class