作者:VB.NET开发
项目:System.Deployment.Applicatio
Private Sub iphm_DownloadApplicationCompleted(ByVal sender As Object, ByVal e As DownloadApplicationCompletedEventArgs) Handles iphm.DownloadApplicationCompleted
' Check for an error.
If (e.Error IsNot Nothing) Then
' Cancel download and install.
MessageBox.Show("Could not download and install application. Error: " & e.Error.Message)
Return
End If
' Inform the user that their application is ready for use.
MessageBox.Show("Application installed! You may now run it from the Start menu.")
End Sub