Zitat:

Im Prinzip brauchst Du ja nur das ContextMenuStrip-Control der ContextMenuStrip-Eigenschaft des Buttons zuweisen: btnHeader.ContextMenuStrip = Me.ContextMenuStrip1

Dim cmsCustomer = New ContextMenuStrip
Dim tsmEdit = New System.Windows.Forms.ToolStripMenuItem
Dim tsmDetail = New System.Windows.Forms.ToolStripMenuItem
Dim tsmDelete = New System.Windows.Forms.ToolStripMenuItem
 
While...
'im Abschnitt CardPanel
CardPanel.Controls.Add(cmsCustomer)
 
'im Abschnitt btnHeader
btnHeader.ContextMenuStrip = cmsCustomer
 
'neue Abschnitte fürs Kontextmenü
'cmsCustomer
'
cmsCustomer.Items.AddRange(New System.Windows.Forms.ToolStripItem() {tsmEdit, _
  tsmDetail, tsmDelete})
cmsCustomer.Name = "cmsCustomer"
cmsCustomer.RenderMode = System.Windows.Forms.ToolStripRenderMode.Professional
cmsCustomer.Size = New System.Drawing.Size(153, 92)
'
'tsmEdit
'
tsmEdit.Name = "tsmEdit"
tsmEdit.Size = New System.Drawing.Size(152, 22)
tsmEdit.Text = "edit"
tsmEdit.Tag = varID     'wie beim Button die ID mitgeben
'
'tsmBehandlung
'
tsmDetail.Name = "tsmDetail"
tsmDetail.Size = New System.Drawing.Size(152, 22)
tsmDetail.Text = "Detail"
tsmDetail.Tag = varID     'wie beim Button die ID mitgeben
'
'tsmDetail
'
tsmDelete.Name = "tsmDelete"
tsmDelete.Size = New System.Drawing.Size(152, 22)
tsmDelete.Text = "delete"
tsmDelete.Tag = varID     'wie beim Button die ID mitgeben
 
'...
 
AddHandler tsmEdit.Click, AddressOf tsmEditClick
AddHandler tsmDetail.Click, AddressOf tsmDetailClick
AddHandler tsmDelete.Click, AddressOf tsmDeleteClick
 
End While
'...
End Sub
 
'genau wie vorher beim Button (wo es reibungslos funktioniert)
Private Sub tsmEditClick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs)
   Dim tEdit As ToolStripMenuItem = CType(sender, ToolStripMenuItem)
 
   frmContactsEdit.lblKdID.Text = tEdit.Tag.ToString
End Sub

MS Visual Studio 2010 Prof.
MS Windows 7 Ultimate 64-bit
INTEL QuadCore Q6600 @2,40 GHz / 8GB RAM