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