Paint error using Ribbon

 

I thing that there is a bug in CommandBars 11.1.3 using  Ribbon theme.

 

Use the steps below to reproduce the error:

 

1. Create a MDIForm;

2. Put a CommandBars control inside MDIForm;

3. Cut and past the code below;

4. Run the prog. After press the Ok button, click in title bar. Look at The Minimize, Maximize and Close buttons.

5. This always happen if use Me.Caption = "Test MDI Form"
6. I need to change the Caption of the MDIForm in my project in code. Please somebody know a workaround?

 

Private Sub MDIForm_Load()
    Set RibbonBar = CommandBars1.AddRibbonBar("The Ribbon")
    RibbonBar.EnableFrameTheme
    Me.Caption = "Test MDI Form"
    Me.Show
    MsgBox "After this message, click on title bar and see the error paint"
End Sub