Загрузка данных

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

' 2. Кнопка "Изменить надпись" (из задания 3 в image.png и image_2.png)
Private Sub CommandButton2_Click()
    ' Изменяем текст (добавляем имя из текстового поля с переносом строки)
    Label1.Caption = "Ещё раз привет!" & vbCrLf & TextBox1.Value
    
    ' Настройка форматирования метки
    Label1.Font.Size = 14                 ' Увеличиваем размер шрифта
    Label1.Font.Bold = True               ' Делаем жирным
    Label1.TextAlign = fmTextAlignCenter  ' Выравнивание по центру
    
    ' Меняем цвета (например, красный текст на жёлтом фоне для наглядности)
    Label1.ForeColor = RGB(255, 0, 0)     ' Цвет шрифта (красный)
    Label1.BackColor = RGB(255, 255, 0)   ' Цвет фона (жёлтый)
End Sub

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