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


Private Sub CommandButton1_Click()
Label1.Visible = True
Label1.Caption = "ïðèâåò êàê òåáÿ çîâóò"
TextBox1.Visible = True
TextBox1.SetFocus
Label1.Font.Size = 12
Label1.Font.Bold = False
Label1.ForeColor = RGB(0, 0, 0)
Label1.BackColor = RGB(255, 255, 255)
TextBox1.Text = ""
End Sub
Private Sub CommandButton2_Click()
Label1.Caption = "åùå ðàç ïðèâåò!"
Label1.Font.Size = 14
Label1.Font.Bold = True
Label1.ForeColor = RGB(0, 0, 128)
Label1.BackColor = RGB(230, 230, 250)
End Sub

Private Sub CommandButton3_Click()
Label1.Visible = False
TextBox1.Visible = False
End Sub

Private Sub UserForm_Click()

End Sub