SHEEPSINMYDREAMS

Public Class Form1
    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

        Label1.Visible = False
        TextBox1.Enabled = True
        Label1.SendToBack()
        TextBox1.BringToFront()
        TextBox1.Text = Label1.Text

    End Sub

    Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

        If Asc(e.KeyChar) = 13 Then

            Label1.BringToFront()
            Label1.Text = TextBox1.Text
            Label1.Visible = True
            TextBox1.SendToBack()
            TextBox1.Enabled = False

        End If

    End Sub
End Class