' create shell object
        Dim WshShell
        WshShell = CreateObject("WScript.Shell")

        ' Create uPlayer Object
        Dim uPlayer
        uPlayer = CreateObject("uPlayer.uPlayerdB")

        ' optionally set collection and zone
        ' any which are "" are ignored
        ' if never called then default used:
        '   collection=(global)
        '   zone=waveout:-1:(default)
        'Call uPlayer.SetCollectionZone("collection", "waveout:-1:(default)")

        ' Enqueue A File, if 0=normal queue, 1=priority enqueued
        Call uPlayer.Enqueue("z:\p2.wav", 0)
        Call uPlayer.Enqueue("z:\p1.wav", 1)

        ' Skip track
        Call uPlayer.SkipNext()

        ' Skip to previous
        Call uPlayer.SkipPrevious()

        ' Skip to % in current
        Call uPlayer.SkipToPC(75)

        ' get and set volume (1 to 100)
        Dim vol
        vol = uPlayer.Volume
        vol = 100
        uPlayer.Volume = vol

        ' Play a Track
        Call uPlayer.Play("z:\p1.wav")

        ' Mute 
        Call uPlayer.Mute()

        ' UnMute 
        Call uPlayer.UnMute()

        If (uPlayer.IsMuted) Then
            ' ' if muted
        End If

        ' Pause
        Call uPlayer.Pause()

        ' UnPause
        Call uPlayer.UnPause()

        If (uPlayer.IsPaused) Then
            ' ' if paused
        End If

        ' Close all uPlayers
        Call uPlayer.Close()

        If (uPlayer.IsLoaded) Then
            Call WshShell.Popup("uPlayer Loaded", , "Test", 0)
        End If

        ' Load Player (and start playback of queued files
        Call uPlayer.Load()

        If (uPlayer.IsStopped = 0) Then
            Call WshShell.Popup("uPlayer Playing", , "Test", 0)
        End If

        ' read properties
        Call WshShell.Popup(uPlayer.FilePlaying, , "Now Playing", 0)
        ' uPlayer.PlayingLengthMS
        ' uPlayer.PlayingPositionPC
        ' uPlayer.PlayingPositionMS
        ' uPlayer.PlayingBitRate
        ' uPlayer.PlayingChannels
        ' uPlayer.PlayingBitsPerSample
        ' uPlayer.PlayingSamplesPerSec

        If (uPlayer.PlayingPropsChanged <> 0) Then
            ' if any of the above have changed since last call
        End If