Public Function isMPlayerAvailable() As Boolean
        Dim mp As Object
        Try
            mp = CreateObject("MediaPlayer.MediaPlayer.1")
            If Not (mp Is Nothing) Then Return True
            mp = CreateObject("WMPlayer.OCX.7")
            Return Not (mp Is Nothing)
        Catch
            Return False
        End Try
    End Function