Que tal? Solo para ver si me podian ayudar con algo quer parecia lo iba a resolver facil pero parece que no tengo la cabeza ni el conocimiento necesario , estoy tratando de hacer un contador como el de las gasolineras con tres imagenes pero no lo he conseguido, les mando ejemplo del 0 al 9 pero hasta alli llego, ya intente con if y for pero nada, las imagenes son los numeros del 0 al 9 y los quiero visualizar en tres picturebox. si me puden orientar se los agradeceria bastante ya que en Google no encontre nada. la idea es contar del 0 al 1000.
Saludos
PD: en caso de que no me haya explicado bien comentenlo y tratare de ser mas explicito.

'Counter lo declare en las generales
Select Case Counter
Case 0 to 9
picturebox.Image = image.FromFile("C:\Polaris\" & Counter + 1 & ".png")
Counter +=1
End Select

Perdon, era del 000 al 999, puesto que son solo 3 imagenes.

Saludos:

Que quieres decir con NADA? En donde tienes el codigo? en un boton, un timer?

Trata de ser mas especifico para poder ayudarte.

JOSE LUIS

Es un boton, de hecho ya esta funcionando ahora solo pasa que se queda "Pegado el nueve en el cambio del 9 al 0, por ejemplo del 39 no sigue 40, sigue 49 y al siguiente click ya marca bien, 41. dejo el codigo.
Saludos!
Public Partial Class MainForm
Private Unidad As Integer = 0
Private Decena As Integer = 0
Private Centena As integer = 0

Sub MainFormLoad(sender As Object, e As EventArgs)
Unidad = 0
Decena = 0
Centena = 0
uni.Image = image.FromFile("C:\Polaris\Counter\0.png")
dec.Image = image.FromFile("C:\Polaris\Counter\0.png")
cen.Image = image.FromFile("C:\Polaris\Counter\0.png")
End Sub

Sub Button1Click(sender As Object, e As EventArgs)
unidad += 1
uni.Image = image.FromFile("C:\Polaris\Counter\" & Unidad & ".png")
If unidad = 9 Then
Unidad = 0
Decena += 1
dec.Image = image.FromFile("C:\Polaris\Counter\" & Decena & ".png")
If Decena = 9 Then
Decena = 0
Centena += 1
cen.Image = image.FromFile("C:\Polaris\Counter\" & Centena & ".png")
If Centena = 9 And Decena = 9 And Unidad = 9 Then
Msgbox ("Limite Alcanzado : 999")
Unidad = 0
Decena = 0
Centena = 0
uni.Image = image.FromFile("C:\Polaris\Counter\0.png")
dec.Image = image.FromFile("C:\Polaris\Counter\0.png")
cen.Image = image.FromFile("C:\Polaris\Counter\0.png")
End If
End If
End If
End Sub

Sorry, no se porque al enviar se quito la indentacion.

Saludos:

Tienes que incluir un contador adicional para las unidades, decenas y centenas.

Cuando las unidades pasen de nueve, sume +1 a las decenas; igual a las decenas con las centenas.

Espero ayude.

JOSE LUIS

Gracias hermano, lo intento y me reporto.