Ayer postee un problema que tube... pero el problema persiste, (el post no lo encontre...).
El problema era el siguiente, quiero hacer un programilla que permita simular un empaquetado de cajas, las botellas las tengo ocultas y las quiero hacer aparecer dentro de la caja, al pasar un intervalo de tiempo, ese intervalo de tiempo dependera, de la urgencia elegida por el usuario... (EXPRESS RAPIDA Y NORMAL), el timer no se me inicia a no ser que ponga un valor en el interval de la propiedad... pero ese valor es fijo ya que no afecta la urgencia que elija ya que me coge siempre el valor fijo...
el codigo es el siguiente
Private Sub Timer1_Timer()

For k = 0 To 8
Timer1.Interval = tiempo
tapon(k).Visible = True
Next k
Timer1.Enabled = False
End Sub

Private Sub Urgencia_Click()
If Urgencia.ListIndex = 0 Then 'Si la urgencia es normal que tarde 4 seg
tiempo = 4000
ElseIf Urgencia.ListIndex = 1 Then ' Si la urgencia es rapida que tarde 2,5
tiempo = 2500
Else
tiempo = 1000 ' si es express que tarde 1 seg
End If
End SubPrivate Sub Confirmar_Click()
Timer1.Enabled = True
End Sub





El boton confirmar lo tengo puesto para q una vez seleccionado todo, se active el timer... Espero que me ayudeis... ya que no por mas que lo intento no consigo nada...
Gracias de antemano

Prueba poniendo la propiedad interval del timer en el evento Confirmar_Click (y quitándola del evento Timer)

Saludos

Dios tio muchas gracias por tu ayuda de verdad ahora el timer ya me hace caso jejeje, solo me queda ahora investigar un pelin para ke las botellas me vayan de 1 en 1
GRACIAS COMPI

Para eso te puede ayudar la API "Sleep"

Código:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

y después en el evento Timer:

Código:

Private Sub Timer1_Timer()
 Dim k As Integer
 For k = 0 To 8
 tapon(k).Visible = True
 Sleep 1000 ' esperar un segundo
 DoEvents
 Next k
 Timer1.Enabled = False
End Sub

Saludos

gracias anibal pero tengo ke conseguirlo sin utilizar APIS... reglas made in profes jejeje
Private Sub Timer1_Timer()
Dim cont As Integer
For cont = 0 To 8
tapon(cont).Visible = True
Timer1.Interval = tiempo
Next cont
Timer1.Enabled = False
End Sub

Creo que asi puede ser... pero me salen todos a la vez pff
Muchas gracias por tu ayuda la verdad esk da gusto entrar por estos foros

Por que no usas esto yo lo uso para cuendo quiero que pase siertos Seg

Private Sub Timer1_Timer()
Dim k As Integer

For k = 0 To 8
tapon(k).Visible = True
Espera (1) 'Espera 1 Seg
Next k
Timer1.Enabled = False
End Sub

Sub Espera(Segundos As Single)
Dim ComienzoSeg As Single
Dim FinSeg As Single
ComienzoSeg = Timer
FinSeg = ComienzoSeg + Segundos
Do While FinSeg > Timer
DoEvents
If ComienzoSeg > Timer Then
FinSeg = FinSeg - 24 * 60 * 60
End If
Loop
End Sub

asi hago una espera de 1 seg o 0.5 seg como sea