Private Sub Command1_Click()
Text1.Text = "Здравей свят"
End Sub
Private Sub Command2_Click()
Text1.Text = 2 + 2 + 2