如果您安装了某一个软件之后，想要反安装，您有二个方法：
　　1、打开【控制面板】中的【添加删除新程序】，选择该软件來反安装。
　　2、选择【开始】【程序集】中软件所产生的程序組中的反安装。
　　
　　上面的第一种方法，您不需要作任何处理，一般软件在安装完后，都会在【控制面板】中的【添加删除新程序】多一个该软件的选项。而第二种方法，就必须要我们编写程序來解决了！
　　
　　假设，今天我们编写了一个程序叫Test，当您完成Test.exe之后，您必须再多编写一个自动反安装的程序，我们將文件名称设为unTest.exe(先不要管如何编写，后面会說明)。二支程序都完成后，您使用VB提供的应用程序安装向导(ApplicationSetupWizard)來制作安装程序時，必须额外再加入unTest.exe！
　　
　　加入unTest.exe之后，使用者安装后，安装程序並不会在【开始】【程序集】中该系統所产生的程序組【Test】中加入这个自动反安装程序unTest.exe的捷径，安装程序只会將unTest.exe连同Test.exe一起复制到应用程序的目录中而已！所以如果您想产生unTest.exe的捷径，您可能需要稍微修改一下VB提供的应用程序安装向导程序！
　　
　　以下我们就实际來看看unTest.exe程序如何编写：
　　
　　在VB中建立一个新文档，取名为unTest.vbp，表单为unTest.frm，不需要任何控制项，在表单中加入以下程序代码：
　　
　　PrivateDeclareFunctionGetWindowsDirectoryLib"kernel32"_
　　Alias"GetWindowsDirectoryA"_
　　(ByVallpBufferAsString,ByValnSizeAsLong)AsLong
　　
　　PrivateSubForm_Load()
　　OnErrorGotoBaddUn
　　DimX&
　　DimbufferAsString*128
　　DimUnStrAsString
　　DimsizeAsInteger
　　DimretvalAsInteger
　　buffer=Space$(128)
　　size=128
　　retval=GetWindowsDirectory(ByValbuffer,ByValsize)
　　Me.Caption=buffer
　　'以下的程序代码必须编写在同一行中
　　''''''''''''''''''''''''''''''''''''''''
　　UnStr=Me.Caption&"ST5UNST.EXE-n"&Chr(34)&App.Path&"ST5UNST.LOG"&Chr(34)
　　''''''''''''''''''''''''''''''''''''''''
　　'MsgBoxUnStr'可显示可不显示,只是测试用
　　'X&=Shell("C:WINDOWSST5UNST.EXE-n"
　　'"C:ProgramFilesAppNameST5UNST.LOG""
　　'",vbNormalFocus)
　　X&=Shell(UnStr,vbNormalFocus)
　　UnloadMe
　　ExitSub
　　BaddUn:
　　MsgBox"forsomereasonUnInstallcannotrun."
　　ExitSub
　　EndSub
　　由以上的程序代码中，您是否发现，unTest.exe必须和St5unst.log放在同一个目录中，不过这只要和上面的程序一样使用App.Path就可以解决了！
　　
　　注：这个示例是使用VB5來做测试的，如果是其他版本的VB，ST5UNST.LOG可能必须改变！->