---

' 1. Кнопка "Показать приветствие" (с возвратом к исходному стилю)
Private Sub CommandButton1_Click()
    ' Делаем элементы видимыми
    Label1.Visible = True
    TextBox1.Visible = True
    
    ' Сбрасываем текст и фокус
    Label1.Caption = "Привет! Как тебя зовут?"
    TextBox1.Value = ""
    TextBox1.SetFocus
    
    ' ВОЗВРАЩАЕМ ИСХОДНЫЙ СТИЛЬ МЕТКИ:
    Label1.Font.Size = 8                  ' Стандартный размер (обычно 8 или 8.25)
    Label1.Font.Bold = False              ' Убираем жирность
    Label1.TextAlign = fmTextAlignLeft    ' Выравнивание по левому краю (как в начале)
    
    ' Сбрасываем цвета на системные стандартные (серый фон, черный текст)
    Label1.ForeColor = &H80000008&        ' Системный черный цвет текста
    Label1.BackColor = &H8000000F&        ' Системный серый цвет кнопки/кнопки фона
End Sub