在VB.NET中，可以使用Application.ThreadException事件來捕獲程序的未處理異常并進(jìn)行相應(yīng)操作。當(dāng)程序發(fā)生未處理異常時(shí)，該事件會(huì)被觸發(fā)，我們可以通過編寫對應(yīng)的事件處理函數(shù)來定義如何處理這些異常。

下面是一個(gè)示例代碼，展示了如何捕獲程序自動(dòng)退出事件：

Imports System.Windows.Forms
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 注冊 Application.ThreadException 事件
        AddHandler AppDomain.CurrentDomain.UnhandledException, AddressOf HandleUnhandledException
        ' 模擬引發(fā)異常導(dǎo)致程序自動(dòng)退出
        Throw New Exception("測試異常")
    End Sub
    
    Private Sub HandleUnhandledException(ByVal sender As Object, ByVal args As UnhandledExceptionEventArgs)
        Dim ex As Exception = CType(args.ExceptionObject, Exception)
        MessageBox.Show($"程序發(fā)生未處理異常：{ex.Message}")
        ' 其他處理邏輯...
        ' 關(guān)閉程序（或者根據(jù)需要選擇不同的操作）
        Me.Close()
    End Sub
End Class