Video läuft aber nur Ton.. Windows 10

[EWeiss]

Ich finde die Lösung nicht warum mein Player kein Video rendert und was in\unter Windows 10 das verhindert.
Vorweg es hat bisher immer funktioniert unter Win7 daher möchte ich bezweifeln das es an meinem Code liegt!
Es wird die QuartzTypeLib verwendet.

Code:

Public MediaControl              As IMediaControl
Public MediaPosition             As IMediaPosition
Public BasicAudio                As IBasicAudio
Public VideoWindow               As IVideoWindow
Public BasicVideo                As IBasicVideo

Code:

Private Sub sndPlayMediaControl(ByVal Filename As String)

Dim mLeft   As Integer
Dim mTop    As Integer
Dim uWidth  As Integer
Dim uHeight As Integer

    On Error GoTo sndPlayMediaControlErr

    ChangeRenderEvents 0

    Set MediaControl = New FilgraphManager
    If MediaControl Is Nothing Then
        MsgBox "Kann die Ojektlib Mediacontrol nicht erstellen"
        Exit Sub
    End If

    Set MediaPosition = MediaControl
    Set BasicAudio = MediaControl
    Set BasicVideo = MediaControl
    Set VideoWindow = MediaControl
    
    MediaControl.RenderFile Filename
    MediaPosition.CurrentPosition = 0

    uWidth = (UserControl.ScaleWidth - 20) / 15
    uHeight = UserControl.ScaleHeight / 15

    With VideoWindow
        .WindowStyle = CLng(&H6000000)
        .SetWindowPosition mLeft, mTop, uWidth, uHeight
        .Owner = UserControl.hwnd
        .MessageDrain = UserControl.hwnd
    End With 'VideoWindow

    MediaControl.Run
    strStatus = "Playing"
    Songlist.Visible = False

Exit Sub

sndPlayMediaControlErr:
    txtBlood.Caption = "Falsches Format 'Codec nicht installiert?'"
    txtBlood.Visible = True

End Sub

Also was könnte unter Windows 10 verhindern das mein Video abgespielt wird.
Ich kann es mir nicht erklären.

Es stürzt nichts ab es gibt keine Fehler aber es wird trotzdem nichts gerendert. Schwarzes Bild halt.

gruss