Private Sub Command1_Click()
Label1.Caption = "Привет, " + Text1.Text
End Sub

Private Sub Command2_Click()
Label1.Caption = ""
End Sub

Private Sub Command3_Click()
Beep
End
End Sub