uRet = mciSendString("where " & MediaName & " destination", sRet, Len( _
      sRet), 0)
    NullTrim sRet
    If sRet <> "" Then
        sRet = Mid(sRet, InStr(1, sRet, " "))
        sRet = Mid(sRet, InStr(2, sRet, " ") + 1)
        With pVS
            .Width = CLng(Mid(sRet, 1, InStr(1, sRet, " ") - 1))
            .Height = CLng(Right(sRet, Len(sRet) - InStrRev(sRet, " ") + 1))
        End With
    Else
        pVS.Width = 0: pVS.Height = 0
    End If