vb自动升级源代码 自动升级程序

vb 自动升级源代码，强制自动升级 Private Sub Form_KeyPress(KeyAscii As Integer) Unload Me End Sub Private Sub Form_Load() frmSplash.Caption = "演示程序 版本号:" & App.Major & "." & App.Minor lblVersion.Caption = "版本 " & App.Major & "." & App.Minor & "." & App.Revision lblProductName.Caption = App.Title End Sub Private Sub Frame1_Click() Unload Me End Sub