Nee helaas, dat is hem ook niet, daarmee open je de sub in de gewone module en het moet die zijn die in de klasse module staat, maar iig bedankt voor je meedenken 

Maar ik heb het gevonden, het moet vanuit een variable aangeroepen worden en het lukt mij alleen via de userforms controls, dus of het zo hoort durf ik niet te zeggen, daar moeten de experts zich maar over buigen 

De code is iig wel lekker kort en makkelijk in te planten, hieronder wat in je userform gaat,

Option Explicit

Public MenBes As kmdBestand

Private Sub UserForm_Initialize()
 
   Set MenBes = New kmdBestand
   Set MenBes.MenuBestand = CommandButton1 ' naam van je commandbutton
   
  End Sub
 
Private Sub CommandButton1_click()

End Sub

Bij je commandbutton is geen code nodig, alles op de public na zit onder initialize

En hier de code die in je klasse module gaat voor 4 knoppies in het midden van je scherm,

Option Explicit

Private WithEvents CopyCtl As CommandBarButton
Private WithEvents CutCtl As CommandBarButton
Private WithEvents PasteCtl As CommandBarButton
Private WithEvents OpenLink As CommandBarButton
Public WithEvents MenuBestand As CommandButton

Private Sub MenuBestand_click()

Dim oCmbar As CommandBar
     
Set oCmbar = Application.CommandBars.Add(Position:=msoBarPopup, temporary:=True)
Set CopyCtl = oCmbar.Controls.Add(msoControlButton)
Set CutCtl = oCmbar.Controls.Add(msoControlButton)
Set PasteCtl = oCmbar.Controls.Add(msoControlButton)
Set OpenLink = oCmbar.Controls.Add(msoControlButton)
               
        With CopyCtl
            .Style = msoButtonIconAndCaption
            .FaceId = 19
            .Caption = "Copy"
    End With
       
        With CutCtl
            .Style = msoButtonIconAndCaption
            .FaceId = 21
            .Caption = "Cut"
    End With
       
        With PasteCtl
            .Style = msoButtonIconAndCaption
            .FaceId = 22
            .Caption = "Paste"
    End With
       
        With OpenLink
             .Style = msoButtonIconAndCaption
             .FaceId = 39
             .Caption = "Open"
    End With
               
        oCmbar.ShowPopup (550), (200)
        oCmbar.Delete

End Sub

Private Sub CopyCtl_Click(ByVal ctrl As Office.CommandBarButton, CancelDefault As Boolean)
 
    'code
 
End Sub

Private Sub CutCtl_Click(ByVal ctrl As Office.CommandBarButton, CancelDefault As Boolean)

    'code

End Sub

Private Sub PasteCtl_Click(ByVal ctrl As Office.CommandBarButton, CancelDefault As Boolean)
   
    'code
   
End Sub

Private Sub OpenLink_Click(ByVal ctrl As Office.CommandBarButton, CancelDefault As Boolean)

    'code
     
End Sub

Klasse module wel omnamen naar kmdBestand, en de 550 en 200 na popup is de positie.

Hoop dat iemand er wat aan heeft, en allemaal bedankt voor het meedenken!

Nu open je een formulier bij knop klik.

Geen idee wanneer je het menu wilt zichtbaar maken, maar als het het op knopklik wilt dan moet je dit oproepen:

Private Sub CommandButton1_Click()
   'Open het menu
   MenuBestand
   'open het formulier
   UserForm1.Show
End Sub


Hallo Arnold,

Dat je wou helpen dat is wat telt 

Wat betreft gebruik zie ik niet zo dadelijk veel verschil tussen beide.
Maar ik heb eM Client ook nog niet kunnen testen, er scheelt nog iets aan de accountinstellingen.
Alles staat identiek aan Thunderbird, maar noppens.
Ik heb er ook nog niet veel tijd in kunnen steken. Te veel problemen met Telenet.

Eerst kwamen meldingen van oplossing.be niet meer binnen.
Uiteindelijk vond ik ze terug in mijn Spam-map van Telenet webmail.
Daar ben ik nu al 10 dagen zoet mee, telefoontje hier, mailtje daar.
Niets hielp om hen het probleem zelfs maar uit te leggen.

Dan Combell ingeschakeld, daar heb ik in totaal een 20 mailtjes van in de map zitten. Resultaat, Telenet zijn fout.
Telenet stuurt mij dan naar de provider waar de website gehost is (comell dus) en als ik zeg dat Combell alles heeft nagekeken aan hun kant, en zeggen dat het de fout van Telenet is, dan zijn ze ineens akkoord dat het bij hen kan liggen.
Maar.... dat moeten ze doorgeven aan een andere dienst enzovoorts enzovoorts. Van het kastje naar de muur....

Gisteren werd ik dan gebeld door technischehulp@telenet en die mevrouw ging er werk van maken. Voor de zoveelste keer moest ik een deel van die mails (die verkeerd terecht kwamen) opsturen naar hun, en warempel, in de namiddag kwam er 1 mail van oplossing in de Inbox terecht, hoera. Daarna werd het stil en ontving ik geen mails meer van oplossing, in geen enkele box. Dat is nu nog steeds zo, en ik ga nu maar weer aan het bellen slaan, want op mijn mails van gisteren krijg ik een reactie: 16/04/21 08:32

Naar aanleiding van ons contact gisteren en uw daarop volgende mails test ik even of deze mail al dan niet bij u correct wordt afgeleverd. U mag deze mail gewoon negeren, ik neem contact op van zodra ik meer nieuws heb.

We zijn nu 10:10 en er is nog niets gebeurd. Bedroevend.

Afwachten maar...

Groeten,

SoftAid              

Hallo Arnold,
Dat topic is van 2014 en bestemd voor US, ik kon er niet veel nuttig uit halen.

oeps had er geen acht op geslagen , wou gewoon helpen , maar ga daar idd toch beter op letten...
toch nog altijd twijfel tussen Thunderbird & eMclient ?
mvg,
Montagnard.

hier iets mee : https://support.mozilla.org/en-US/questions/989709 ?
Mvg,
Montagnard.