Grazie, ho risolto usando questo codice:
codice:
' [...] Dichiarazioni
' Frame del salto
Private jFrame As Integer
' Evento click del Button
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sprite13Jump.Enabled = True
End Sub
' Timer del salto
Private Sub sprite13Jump_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles triangJump.Tick
jFrame += 1
If jFrame = 1 Then
sprite13.Top -= 8
End If
If jFrame = 2 Then
sprite13.Top -= 5
End If
If jFrame = 3 Then
sprite13.Top -= 3
End If
If jFrame = 4 Then
sprite13.Top += 3
End If
If jFrame = 5 Then
sprite13.Top += 5
End If
If jFrame = 6 Then
sprite13.Top += 8
jFrame = 0
triangJump.Enabled = False
End If
End Sub