主题：如何自定义升级成功提示窗口呢？

如何自定义升级成功提示窗口呢？  

设定了升级提示窗口，下述代码运行后，并没有弹出自定义升级成功提示的窗口 

Dim ipFile As String = ProjectPath & "\Attachments\ip.txt"
    Dim up As Boolean
    If Filesys.FileExists(ipFile) Then
        Dim ip As String = FileSys.ReadAllText(ipFile)
        If TryConnectHost(ip) = True Then
            Dim hc As New HttpClient(UpdatePath & "/update.txt")
            hc.SkipError = True
            If hc.GetFile(ProjectPath &"update.txt") Then
                up = Syscmd.Project.Update(False,False)
                 froms("升级提示").open
            End If   
        End If
    End If