Public Class Form1
 
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Me.Text = e.KeyCode & " KeyDown"
        If e.KeyCode = Keys.Enter Then
            Button1.Visible = True
            Button1.Visible = True
            Button1.Focus()
        End If
    End Sub
 
    Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
        Me.Text = e.KeyCode & " KeyUp"
    End Sub
 
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Button1.Focus()
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Button1.Enabled = False
        Button1.Visible = False
    End Sub
End Class