Office: Werkzeugsammlung erscheint unaufgfordert im Word Fenster

Hallo Forum.
Ich habe mal wieder ein besionderes Problem.
In einem Frame einer Userform will ich einen kleinen Film ablaufen lassen.
Das habe ich auch geschafft !!! (tolz sei)
Aber durch den Aufruf der funktion

Code:

Public Function Control2hWnd(oControl As Control) As Long
  On Error Resume Next
 
  ' Fokus auf das Control setzen
  oControl.SetFocus
  If Err Then
    ' Fehler? Dann 0 zurückgeben
    Control2hWnd = 0
  Else
    ' Windowhandle ermitteln
    Control2hWnd = GetFocus()
  End If
 
  On Error GoTo 0
End Function

die ich brauche um den hwnd Wert für das Frame zu ermitteln in dem der film ablaufen soll, erscheint unaufgefordert die Werkzeugsammlung mit den Steuerelementen, die ich dort ganz bestimmt nicht haben will.
Die Funktion wird aufgerufen mit

Code:

Dim hWnd As Long
hWnd = Control2hWnd(form1.frame5)

frame5 ist das frame in der der Film läuft.

Kann mir jemand einen Tipp geben, wie ich es schaffe, zu verhindern, dass die Sammlung erscheint, oder wie ich das fenster mit der Sammlung automatisch sofort schließen kann ?

PS: Die o.a Funktion habe ich von dieser Site :


http://www.vbarchiv.net/tipps/details.php?id=667

Danke im Voraus

chakko