1、添加一个窗体,添加2个LABEL控件,一个按钮

2、写代码如下
Option Explicit
Private Sub Command1_Click()App.Title = "工程2"Label2.Caption = "修改后的工程名:" & App.TitleEnd Sub
Private Sub Form_Load()Dim tt As Stringtt = App.TitleLabel1.Caption = "当前工程名:" & tt
End Sub

3、效果:

1、添加一个窗体,添加2个LABEL控件,一个按钮

2、写代码如下
Option Explicit
Private Sub Command1_Click()App.Title = "工程2"Label2.Caption = "修改后的工程名:" & App.TitleEnd Sub
Private Sub Form_Load()Dim tt As Stringtt = App.TitleLabel1.Caption = "当前工程名:" & tt
End Sub

3、效果:
