BUG: ScrollBars Disappear on Mouse Move in OLE Container

MORE INFORMATION

Steps to Reproduce Behavior

1. Start a new Standard EXE project in Visual Basic. Form1 is created by default.
2. Add an OLE Container and a CommandButton to Form1. Click Cancel if prompted for an object type.
3. Add the following code to Form1's code window:

         Option Explicit
   
         Private Sub Command1_Click()
            OLE1.CreateEmbed "", "Word.Document"
            OLE1.DoVerb vbOLEUIActivate
            OLE1.SizeMode = 1
            With OLE1.object
               .ActiveWindow.DisplayVerticalScrollbar = True
               .ActiveWindow.DisplayHorizontalScrollbar = True
            End With
         End Sub
   					

4. Run the project by pressing the F5 key.
5. Click Command1 to embed a new word document in the container. The code automatically activates the document and shows the ScrollBars.
6. Type "Hello World" in the document.
7. Start moving the mouse around and/or click the start of the document. You should notice that the ScrollBars disappear shortly upon receiving these mouse events.