Private Sub Form_Click()Form1.Caption = "标题2"End Sub
这个是很简单的写法了
Private Sub Form_click()Form1.Caption = "标题"End Sub
思路:事件中修改窗体caption属性的值