---

Private Sub CommandButton1_Click()
    Label1.Visible = True
    Label1.Caption = "привет !как тебя зовут ?"
    TextBox1.Visible = True
    TextBox1.Text = ""
    TextBox1.SetFocus
End Sub
Private Sub CommandButton2_Click()
Label1.Caption = "Еще раз привет !" & vbCrLf & TextBox1.Text
Label1.Font.Size = 14
Label1.Font.Bold = True
Label1.TextAlign = fmTextAlignCenter
Label1.BackColor = RGB(220, 220, 220)
Label1.ForeColor = vbRed
End Sub
Private Sub CommandButton3_Click()
Label1.Visible = False
TextBox1.Visible = False
End Sub