AYUDA PARA CREAR UN REPRODUCTOR DE MUSICA

[SCAN]

HOLA

si me podrian ayudar con codigo para crear un reproductro de musica pero que sea sencillo
que tenga no mas

los botones mas comunes como
play
stop
siguiente
anterior
pause

espero que me ayuden ya que soy nuevo
haa y como crear los controles de un  mci
gracias espero que me ayuden

[logisys]

Hola

Busca sobre el MMControl, ese te lo hace todo.. esta en los componentes adicionales

Saluos!

[Cagalas]

hola como estas mira checate esto aver si te sirve


[code]
 Dim tiempo As DateTime ' para el tiempo transcurrido
            Private Sub frmPlayer_Load(ByVal sender As System.Object, ByVal e As System.EventAr gs) Handles MyBase.Load
                        Me.Top = 80 ' posición y del formulario
                        Me.Left = (Screen.Primary Screen.Working Area.Width - Me.Width) \ 4 ' posición x del formulario
                        btPlay.Enabled = False
            End Sub

            ' Para abrir el cuadro de diálogo
            Private Sub btAbrir_Click(ByVal sender As System.Object, ByVal e As System.EventAr gs) Handles btAbrir.Click
                        abrirArchivo()
            End Sub

            ' Mostrar información de la canción al cambiar el estado del reproductor (PlayStateChang e)
            ' al tener inicio automático, simplemente con elegir un archivo ya cambia el estado de reproducción
            Private Sub ocxPlayer_Play StateChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPO CXEvents_PlayS tateChangeEven t) Handles ocxPlayer.Play StateChange

                        tiempo = DateTime.Now ' para empezar a contar el tiempo

                        ' vaciar la información de la canción anterior
                        lbTitulo.Text = ""
                        lbTituloa.Text = "Reproducción en curso:"
                        lbAutor.Text = ""
                        lbAutora.Text = "Autor"

                        ' dependiendo del estado del reproductor
                        Select Case e.newState
                                    Case WMPLib.WMPPlay State.wmppsPla ying ' si reproduciendo
                                                btStop.Enabled = True
                                                btPlay.Enabled = False
                                                btPrev.Enabled = True
                                                btNext.Enabled = True
                                                lbTituloa.Text = "Reproducción en curso:"
                                                lbTitulo.Text = ocxPlayer.curr entMedia.getIt emInfobyType("title", "", 0) ' t