Userform Refresh

[Outsider77]

Hallo zusammen,

in

UserForm_Initialize

erstelle ich ein eigenes Kontext-Menü für die Form, welches bei Klick auf einen ListBox-Eintrag angezeigt werden soll.
Leider erscheint das Kontext-Menü bei Klick nicht vollständig, sondern nur schemenhaft die Umrisse.
Erst wenn ich die Maus über die Einträge bewege, zeigen diese sich nacheinander.

Ich habe es schon mit

DoEvents

bzw.

Me.Repaint

probiert, was aber keinen erfolg brachte.

Hier mal der gesamte Code:

Option Explicit

Dim m_Menu As CommandBar

Private Sub UserForm_Initialize()
    Dim j As Integer
    
    On Error Resume Next
    Set m_Menu = CommandBars("TestMenu")
    m_Menu.Delete
    Set m_Menu = Nothing
    On Error GoTo 0
    
    If m_Menu Is Nothing Then
        
        Set m_Menu = Application.CommandBars.Add(Name:="TestMenu", position:=msoBarPopup, Temporary:=False)
        
        For j = 12 To 1 Step -1
            With CommandBars("TestMenu").Controls.Add(Type:=msoControlPopup)
                On Error GoTo 0
                .Caption = j
            
                With .Controls.Add
                    .FaceId = 462
                    .Caption = j & ".1"
                    .OnAction = "makro" & j
                End With
            End With
        Next j
    End If
    
End Sub

Bin für jede Hilfe dankbar!

Gruß Outi