Zitat:

Bei mir wird grundsätzlich nach Einfügen des Controls die vormals rahmenlose Form grundsätzlich als Standard Form mit Rahmen (es soll ja eine Menuzeile aufnehmen, welche ich aber nicht brauche) erstellt. Kann mann das verhindern?

Dim MnuPopup As MenuItem
 
Private Sub Form_Load()
 
    Me.Top = 1000
    Me.Left = 1500
 
    MenuBar1.Style = mnuOfficeXP
    With MenuBar1.MenuItems
        Set MnuPopup = .AddPopup("MenuPopup")
 
        .Add "Eintrag 1", "Eintrag1", MnuPopup
        .Add "Eintrag 2", "Eintrag2", MnuPopup
 
    End With
End Sub
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
    If Button = 2 Then
        MenuBar1.PopUp MnuPopup, X + Screen.TwipsPerPixelX + Me.Left / _
          Screen.TwipsPerPixelX, Y + Screen.TwipsPerPixelY + Me.Top / _
          Screen.TwipsPerPixelY
    End If
' Das ist zwar Quatsch, das so zu positionieren aber du weißt ja bestimmt wohin 
' du wann das Popup haben möchtest.
End Sub