[VB.NET] eventi pulsanti key down , press , up ?

[danielspc]

ciao a tutti sono da due giorni che cerco di capire l'errore ma non lo trovo.. devo gestire un pulsante tramite i vari eventi (key up,down, press) ma non funziona quando rilascio il pulsante..
questo è il codice mi potreste dare una mano ? grazie

Private Sub alto_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.KeyPreview = True
    End Sub

    Private Sub alto_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyValue = Keys.W Then
            SendMessage("8")
            MsgBox(" non invia")

        End If
    End Sub


    Private Sub alto_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress

        If Asc(e.KeyChar) = 87 Then
            SendMessage("8")
            MsgBox(" non preme")

        End If
    End Sub





    Private Sub alto_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp

        If e.KeyValue = Keys.W Then

            SendMessage("5")
            MsgBox("non rialza")
        End If
    End Sub


End Class