Private Sub Picture1_Keypress(Keyascii As Integer)
If Text4.Left <= 60 And Keyascii = 97 Then
Text4.Left = Text4.Left
ElseIf Text4.Left > 60 And Keyascii = 97 Then
Text4.Left = Text4.Left - 100
ElseIf Text4.Left = 9360 And Keyascii = 115 Then
Text4.Left = Text4.Left
ElseIf Keyascii = 115 Then
Text4.Left = Text4.Left + 100
Else
Text4.Left = Text4.Left
End If
If Text3.Left <= 60 And Keyascii = 111 Then
Text4.Left = Text3.Left
ElseIf Text3.Left > 60 And Keyascii = 111 Then
Text3.Left = Text3.Left - 100
ElseIf Text3.Left = 9360 And Keyascii = 112 Then
Text3.Left = Text3.Left
ElseIf Keyascii = 112 Then
Text3.Left = Text3.Left + 100
Else
Text3.Left = Text3.Left
End If
If Keyascii = 97 And Keyascii = 111 Then
Text4.Left = Text4.Left - 100
Text3.Left = Text3.Left - 100
ElseIf Keyascii = 97 And Keyascii = 112 Then
Text3.Left = Text3.Left - 100
Text4.Left = Text4.Left + 100
ElseIf Keyascii = 115 And Keyascii = 111 Then
Text4.Left = Text4.Left + 100
Text3.Left = Text3.Left - 100
ElseIf Keyascii = 115 And Keyascii = 112 Then
Text4.Left = Text4.Left + 100
Text3.Left = Text3.Left + 100
Else
Text4.Left = Text4.Left
Text3.Left = Text3.Left
End If
End Sub
aki me salio para que se mueva
me falta la pelotita alguien puede ayudarme en eso? por lo menos diciendome que puedo utilizar asi averiguo sobre la instruccion