dEyVYd
11 de Febrero del 2004

Que quiere decir esta variable?Dim a As Integer

Dim a As Integer

Private Sub Timer1_Timer()
Image2.Picture = Image1(a).Picture
Form1.Icon = Image1(a).Picture
a = a + 1
If a = 5 Then
a = 0
End If
End Sub

sdemingo
11 de Febrero del 2004

Ese código, lo que hace es que cada x tiempo (el definido en la propiedad interval del control Timer) cambia la imagen que se muestra en control picture. Debe haber 5 imágenes y cuando llega a la última vuelve a la la primera if a = 5 then a = 0

Dim a As Integer declara una variable de tipo numércio entero cuyo rango de valores va desde 32.768 a 32.767

salu2
sdemingo