---

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

' 2. Кнопка "Изменить надпись"
Private Sub CommandButton2_Click()
    ' Проверяем, ввёл ли пользователь имя
    If Trim(TextBox1.Text) = "" Then
        MsgBox "Пожалуйста, введите ваше имя!", vbExclamation, "Внимание"
        TextBox1.SetFocus
        Exit Sub
    End If
    
    ' Меняем надпись и настраиваем внешний вид
    Label1.Caption = "Ещё раз привет!" & vbCrLf & TextBox1.Text
    
    With Label1
        .Font.Size = 14
        .Font.Bold = True
        .TextAlign = fmTextAlignCenter
        .BackStyle = fmBackStyleOpaque
        .BackColor = RGB(220, 220, 220) ' Серый фон
        .ForeColor = vbRed ' Красный текст
    End With
End Sub

' 3. Кнопка "Скрыть надпись"
Private Sub CommandButton3_Click()
    Label1.Visible = False
    TextBox1.Visible = False
End Sub