---

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

' Кнопка 2: Изменить надпись
' Меняет текст, цвет текста, размер, фон, делает шрифт жирным и выравнивает по центру
Private Sub CommandButton2_Click()
    ' Формируем новый текст (перенос строки с помощью vbCrLf)
    Label1.Caption = "Ещё раз привет!" & vbCrLf & TextBox1.Text
    
    ' Настройка шрифта
    Label1.Font.Size = 14               ' Увеличиваем размер шрифта
    Label1.Font.Bold = True             ' Делаем полужирным
    Label1.Font.Name = "Arial"          ' (Опционально) задаем понятный шрифт
    
    ' Выравнивание текста по центру
    Label1.TextAlign = fmTextAlignCenter
    
    ' Изменение цвета текста и фона (например, синий текст на светло-сером или желтом фоне)
    Label1.ForeColor = RGB(0, 0, 128)   ' Темно-синий цвет текста
    Label1.BackColor = RGB(230, 230, 250) ' Светло-фиолетовый/серый фон
    
    ' Чтобы цвет фона был виден, свойство BackStyle должно быть непрозрачным
    Label1.BackStyle = fmBackStyleOpaque
End Sub

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