Unas imágenes que tienen que girar.
Un control HScroll1
Max 2
Min 0
Código:
Private Sub HScroll1_Change() 'Para que el control no "estanque" nunca: Static Sumar As Integer If Sumar = 0 Then Sumar = 1 If HScroll1.Value = HScroll1.Min Then Sumar = 1 HScroll1.Value = HScroll1.Value + Sumar 'Y aquí el código para que giren las imágenes. End Sub
En Windows 7 el Scroll funciona sin problemas, pero en varios PC con XP en los que probé, El HScroll no responde, no es detectado.
He probado con HScroll1.SetFocus y tampoco va.
Gracias de antemano.