---

Private Sub CommandButton1_Click()
Label1. Visible = True
Label1. Caption = "Привет! Как тебя
зовут?"
TextBox1.Visible = True
TextBox1. SetFocus
TextBox1. Value = ''''
End Sub