VB2005 プロシージャーのもと 詳細版

エラー発生時にエラー内容とプロシージャー名をダイアログに表示(エラー内容詳細版)

    Private Sub a()
        Try

            ‘コード

        Catch ex As Exception
            Dim ErrCaption As String = My.Application.Info.ProductName & “(” & Reflection.MethodBase.GetCurrentMethod.Name & “)”
            MessageBox.Show(ex.Message & vbCrLf & ex.StackTrace, ErrCaption, MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub