You want the text of a button, to reflect which keys have been pressed, is that right?

Code:
    Private Sub Form1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
        Button1.Text += Chr(e.KeyValue)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.KeyPreview = True
        Button1.Text = String.Empty
    End Sub