Hola a todos. Explico el problema esperando que alguien pueda echarme un cable.
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.