Private Sub Input_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Input.KeyDown

    If e.KeyCode = Keys.Escape Then

        e.SuppressKeyPress = True
    End If

    If e.KeyCode = Keys.Enter Then

        Send.PerformClick()

        e.SuppressKeyPress = True
    End If
End Sub

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

    If e.KeyChar <> " " Then

        Input.Select()

        SendKeys.Send(e.KeyChar)
    End If
End Sub

Call Input_KeyPress(sender, e)