[VB.NET]如何关闭程序的错误提示，以统一的画面提示？

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
如何关闭程序的错误提示，以统一的画面提示？

程序开发以后，在用户运行的过程中，会有可能发生各种各样的错误，请问如何屏蔽这些错误，而用一个统一的一个错误提示来告诉用户？因为系统的错误提示，有可能会暴露你程序中的一些关键字。
简单的讲，我如何控制程序中的所有错误的基类?
__________________________________________________________________________
请用

Try
...
Catch
...
End Try

结构。在捕捉到错误时进行处理。
__________________________________________________________________________
Try
...
Catch
...
End Try
__________________________________________________________________________
要每个地方都用try的话,这个工作量太大了.
__________________________________________________________________________
on error goto er
....
....
er:
....
__________________________________________________________________________
如果是2005就好了，Project Setting里面有个Application Events按钮，点一下就会出现Application Events文件，里面有个UnhandledException事件，就是如果出现了应用程序没有拦截的异常的事件，在里面加入你的统一错误代码就OK了。
__________________________________________________________________________
参考AppDomain.UnhandledException

Sub Main()
Dim currentDomain As AppDomain = AppDomain.CurrentDomain
AddHandler currentDomain.UnhandledException, AddressOf MyHandler

Try
Throw New Exception( "1 ")
Catch e As Exception
Console.WriteLine( "Catch clause caught : " + e.Message)
End Try

Throw New Exception( "2 ")

'' Output:
'' Catch clause caught : 1
'' MyHandler caught : 2
End Sub ''Main


Sub MyHandler(sender As Object, args As UnhandledExceptionEventArgs)
Dim e As Exception = DirectCast(args.ExceptionObject, Exception)
Console.WriteLine( "MyHandler caught : " + e.Message)
End Sub ''MyUnhandledExceptionEventHandler
__________________________________________________________________________
谢谢,正是这个.
__________________________________________________________________________