sisi, si yo a ese codigo le saco todo esto:

Slider.Max = WMP.currentMedia.duration

me anda perfecto
pero no entendi eso de acortar el codigo usando matrizes de los controles

Dim var As Integer
Dim vol As Integer
 
Private Sub Form_load()
 
Me.Caption = "Chaoz Player"
WMP.uiMode = "none"
MV.ForeColor = &HE0E0E0
MV.BackColor = &HE0E0E0
WMP.settings.volume = 100
 
End Sub
 
Private Sub Image1_Click()
 
If Image1.BorderStyle = 0 Then
Image1.BorderStyle = 1
End If
 
WMP.Controls.previous
WMP.Controls.play
 
Timer1.Enabled = True
 
End Sub
 
Private Sub Image10_Click()
 
If Image10.BorderStyle = 0 Then
Image10.BorderStyle = 1
End If
 
WMP.settings.volume = vol
 
Timer1.Enabled = True
 
End Sub
 
Private Sub Image11_Click()
 
If Image11.BorderStyle = 0 Then
Image11.BorderStyle = 1
End If
 
WMP.fullScreen = True
 
Timer1.Enabled = True
 
End Sub
 
Private Sub Image2_Click()
 
If Image2.BorderStyle = 0 Then
Image2.BorderStyle = 1
End If
 
WMP.Controls.play
 
Timer1.Enabled = True
 
End Sub
 
Private Sub Image3_Click()
 
If Image3.BorderStyle = 0 Then
Image3.BorderStyle = 1
End If
 
WMP.Controls.Next
 
Timer1.Enabled = True
 
End Sub
 
Private Sub Image4_Click()
 
If Image4.BorderStyle = 0 Then
Image4.BorderStyle = 1
End If
 
WMP.Controls.stop
 
Timer1.Enabled = True
 
End Sub
 
Private Sub Image5_Click()
 
If Image5.BorderStyle = 0 Then
Image5.BorderStyle = 1
End If
 
On Error Resume Next
CommonDialog1.Filter = "Todos los Archivos|*.mp3;*.mid;*.wav| Archivos MP3 (*.mp3)|*.mp3| Archivos MIDI (*.mid)|*.mid| Archivos de audio de Windows (*.wav)|*.wav"
CommonDialog1.ShowOpen
 
WMP.URL = CommonDialog1.FileName
 
WMP.Controls.stop
 
Label1.Caption = CommonDialog1.FileTitle
 
End Sub
 
Private Sub Image6_Click()
 
If Image6.BorderStyle = 0 Then
Image6.BorderStyle = 1
End If
 
WMP.Controls.pause
 
Timer1.Enabled = True
 
End Sub
 
Private Sub Image7_Click()
 
If Image7.BorderStyle = 0 Then
Image7.BorderStyle = 1
End If
 
Timer1.Enabled = True
 
End Sub
 
Private Sub Image7_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
If Image7.BorderStyle = 0 Then
Image7.BorderStyle = 1
End If
 
WMP.Controls.fastForward
 
End Sub
 
Private Sub Image7_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
WMP.Controls.play
 
End Sub
 
Private Sub Image8_Click()
 
If Image8.BorderStyle = 0 Then
Image8.BorderStyle = 1
End If
 
Timer1.Enabled = True
 
End Sub
 
Private Sub Image8_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
If Image8.BorderStyle = 0 Then
Image8.BorderStyle = 1
End If
 
WMP.Controls.fastReverse
 
End Sub
 
Private Sub Image8_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
WMP.Controls.play
 
End Sub
 
Private Sub Image9_Click()
 
If Image9.BorderStyle = 0 Then
Image9.BorderStyle = 1
End If
 
vol = WMP.settings.volume
WMP.settings.volume = 0
 
Timer1.Enabled = True
 
End Sub
 
Private Sub MV_ValueChanged()
 
MV.Value = vol
WMP.settings.volume = MV.Value
 
End Sub
 
Private Sub Timer1_Timer()
 
If Image1.BorderStyle = 1 Then
Image1.BorderStyle = 0
End If
 
If Image2.BorderStyle = 1 Then
Image2.BorderStyle = 0
End If
 
If Image3.BorderStyle = 1 Then
Image3.BorderStyle = 0
End If
 
If Image4.BorderStyle = 1 Then
Image4.BorderStyle = 0
End If
 
If Image5.BorderStyle = 1 Then
Image5.BorderStyle = 0
End If
 
If Image6.BorderStyle = 1 Then
Image6.BorderStyle = 0
End If
 
If Image7.BorderStyle = 1 Then
Image7.BorderStyle = 0
End If
 
If Image8.BorderStyle = 1 Then
Image8.BorderStyle = 0
End If
 
If Image9.BorderStyle = 1 Then
Image9.BorderStyle = 0
End If
 
If Image10.BorderStyle = 1 Then
Image10.BorderStyle = 0
End If
 
If Image11.BorderStyle = 1 Then
Image11.BorderStyle = 0
End If
 
Timer1.Enabled = False
 
 
End Sub
 
Private Sub Timer2_Timer()
 
If Label1.Left = -4500 Then
Label1.Left = 3000
Else
    If Not Label1.Caption = "" Then
    Label1.Left = Label1.Left - 10
    End If
End If
 
If WMP.settings.volume = 0 Then
Image10.Visible = True
Image9.Visible = False
Else
Image10.Visible = False
Image9.Visible = True
End If
 
End Sub
 
Private Sub Slider_Change()
 
WMP.Controls.currentPosition = Slider.Value
 
End Sub
 
Private Sub Slider_Scroll()
 
Call Slider_Change
 
End Sub
 
Private Sub WMP_OpenStateChange(ByVal NewState As Long)
 
Slider.Min = 0
 
Slider.Max = WMP.currentMedia.duration
 
End Sub
 
 

WMP = WindowsMediaPlayer1
Slider= Slider1

y perdon si hay cosas que esten hechas de una forma por ahi ineficiente o desprolija pero fue la forma mediante la cual logre hacer lo que queria.

PD: se aceptan sujerencias para mejorar el codigo

PD2: lo que pense que podia causar el error (comentario anterior) no es xq cambie de lugar la sentencia, para que se iniciara mucho despues de cargado el archivo y sigue sucediendo lo mismo.

primero q nada gracias por la respuesta porque me sirvio
pero no entiendo por que salta un error "Variable de tipo Object o la variale del bloque With no está establecida"

Slider1.Max = WindowsMediaPlayer1.currentMedia.duration

el error aparece cuando yo cargo el archivo de musica.
podria ser que el error sea producido ya que este evento ocurre antes que el archivo este completamente cargado???

hola les comento que estoy haciendo un reproductor de audio utilizando Windows Media Player (WMP) ya que me provee de visualizaciones y es mas facil de usar, pero los botones, comandos, etc. los diseño yo y al diseñar la seek bar con un slider no encontre la forma de conectarla al WMP :S
Mi idea era hacer una seek bar como la del reproductor, es decir si uno hace click en X lugar la cancion se adelante hasta el mismo y que avanze a medida q el tema se reproduce, gracias.

hola mira recien empeze a cabiar cosas y el error del codigo esta aca


asi q voy a ver como lo puedo arreglar

xq cuando le pongo play a un boton q tiene esa funcion
(supongo q ese codigo estaba bien)

y cuando uso este boton no pasa nada :S

y una pregunta q no tiene nada q ver con esto, como le doy colores al codigo q pongo aca??

hola tengo un problema con este codigo, no logro que cargue el archivo que elijo desde el commondialog
pero no encuentro el porque

hala mira
fijate si lo podes manejar desde el commondialog
con la funcion .showprinter
a mi me resulto util

hay un problema con este codigo:

si el archivo no existe tira error :S

oks
gracias ahora lo pruevo, igual tengo varios problemas con este proyecto que estoy haciendo, asi q vas a ver mas preguntas como estas.
xq hace poco que empece con vb