请问在制作安装文件时，如何执行安装失败反安装事件(Uninstall)

Question

在安装程序类(Installer1.vb)里:
   Public Overrides Sub Install(ByVal stateSaver As System.Collections.IDictionary)
        MyBase.Install(stateSaver)
        Try
         '程序代码
        Catch e1 As Exception
            MsgBox(e1.Source & ">>>" & e1.Message)
            Me.Uninstall(stateSaver)'遇到错误执行uninstall
        End Try
    End Sub    Public Overrides Sub Uninstall(ByVal stateSaver As System.Collections.IDictionary)
        MyBase.Uninstall(stateSaver)
    End Sub在安装时如果捕捉到错误，就执行反安装,可是我遇到的是捕捉到错误，其后并没有提示进行反安装，而是提示安装成功请问我上面的代码由什么错误?