… = MediaControl[…] (gb.media)

Dim hMediaControl As MediaControl
Dim aVariant As Variant
aVariant = hMediaControl [ Property As String ]

Return the value of a MediaControl property from its name.

The properties supported by the control depends on its Type.