Cómo lograr el efecto de onda de mp3 en vb

Contiene el DMC de control, el código fuente se puede descargar en la siguiente dirección:

http://afei.name/upload/dmc.rar

El código fuente es el siguiente:

Opción explícita

Atenuar o_AD como IBasicAudio

Atenuar o _VW como IVideoWindow

Atenuar o_FM como FilgraphManager

Dim o_Pos como IMediaPosition

Dimo_Event como IMediaEvent

Dim o_Filter como IFilterInfo

Dim Url como cadena

Private Sub DMC1_ErrorOccurred(ByVal donde como Cadena, información de ByVal como cadena)

Debug.Print donde & amp "," & info

End Sub

Sub privado DMC1_URLStreamStoped(ByVal en pausa como booleano )

Debug.Print "URL-" & pausado

End Sub

Sub privado Form_Load()

DMC1.DeviceToUse = 1

DMC1.InitBASS Me.hWnd, 44100, Verdadero, Falso

DMC1.InitBASS Me.hWnd, 44100, Verdadero, Falso

DMC1.InitBASS Me. hWnd, 44100BufferLenInSeconds = 1

DMC1.StreamPan = 0

DMC1.OpenURLStream "http://afei.name/media/california.mp3" 'Reproducir canciones de Internet

DMC1.OpenURLStream " http://afei.name/media/california.mp3" 'Reproducir canciones de Internet

DMC1.OpenURLStream "http://afei.name/media/california.mp3PlayURLStream

End Sub

Sub privado Form_Unload(Cancelar como entero)

Si DMC1.URLStreamIsActive = True Entonces

DMC1.URLStreamIsActive = True Entonces

DMC1.URLStreamIsActive = True Si DMC1.URLStreamIsActive = True Entonces

DMC1.URLStreamIsActive = TrueDMC1.StreamLenInSeconds & "/" & DMC1.StreamLenInSeconds

DMC1.StreamData intData, 1000

Finalizar si

picBox.Cls

Para i = 0 a 500 Paso 2

h = ((int

Datos(i) + 32768) / 65535 * picBox.Height)