Alguna opinion?

Polako
31 de Octubre del 2004
Hola que tal?.estou hacuendo un jugo en vb y esta es la mejor manera que encontre para realizar el cambio de imagenes a momento de camina.
Dim CONT As Integer


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyLeft Then
Image1.Left = Image1.Left - 9
If (Image1.Left Mod 2) = 0 Then
Image1.Picture = LoadPicture("c:Mis documentosimb.bmp")
ElseIf Image1.Left Mod 2 <> 0 Then
Image1.Picture = LoadPicture("c:Mis documentosimb2.bmp")
End If


ElseIf KeyCode = vbKeyRight Then
Image1.Left = Image1.Left + 9
CONT = CONT + 1
If CONT > 3 Then
CONT = 0
End If
If CONT = 1 Then
DoEvents
Image1.Picture = LoadPicture("c:Mis documentosimz.bmp")
ElseIf CONT = 2 Then

Image1.Picture = LoadPicture("c:Mis documentosDIBUJOD.bmp")
DoEvents
ElseIf CONT = 3 Then
DoEvents
Image1.Picture = LoadPicture("c:Mis documentosimz2.bmp")
ElseIf CONT = 0 Then
DoEvents
Image1.Picture = LoadPicture("c:Mis documentosDIBUJOD.bmp")

End If

ElseIf KeyCode = vbKeyUp Then
Image1.Top = Image1.Top - 9
If (Image1.Top Mod 2) = 0 Then
Image1.Picture = LoadPicture("c:Mis documentosima2.bmp")
ElseIf Image1.Top Mod 2 <> 0 Then
Image1.Picture = LoadPicture("c:Mis documentosima3.bmp")
End If

ElseIf KeyCode = vbKeyDown Then
Image1.Top = Image1.Top + 9
If (Image1.Top Mod 2) = 0 Then
Image1.Picture = LoadPicture("c:Mis documentosimf3.bmp")
ElseIf Image1.Top Mod 2 <> 0 Then
Image1.Picture = LoadPicture("c:Mis documentosimf2.bmp")
End If
End If
End Sub
El problema es que no me convencela manera y me gustaria que me den alguna opinion y si es posible alguna mejor forma
Mchas gracias