mpv.net/VBNET/TaskDialog.vb

Imports System.IO
Imports System.Reflection
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Text.RegularExpressions
Imports System.Threading

Public Delegate Function PFTASKDIALOGCALLBACK(hwnd As IntPtr,
                                              msg As UInteger,
                                              wParam As IntPtr,
                                              lParam As IntPtr,
                                              lpRefData As IntPtr) As Integer
Public Class Msg
    Public Shared Property SupportURL As String

    Public Shared Sub Show(mainInstruction As String, Optional content As String = Nothing)
        Show(mainInstruction, content, MsgIcon.Info, MsgButtons.Ok)
    End Sub

    Public Shared Sub ShowError(mainInstruction As String, Optional content As String = Nothing)
        If mainInstruction = "" Then mainInstruction = content
        If mainInstruction = "" Then Exit Sub

        Using td As New TaskDialog(Of String)
            td.AllowCancel = False

            If content = "" Then
                If mainInstruction.Length < 80 Then
                    td.MainInstruction = mainInstruction
                Else
                    td.Content = mainInstruction
                End If
            Else
                td.MainInstruction = mainInstruction
                td.Content = content
            End If

            td.MainIcon = MsgIcon.Error
            td.Footer = "[copymsg Copy Message]"
            If SupportURL <> "" Then td.Footer += $"   [{SupportURL} Contact Support]"
            td.Show()
        End Using
    End Sub

    Public Shared Sub ShowException(e As Exception)
        Try
            Using td As New TaskDialog(Of String)
                td.MainInstruction = e.GetType.Name
                td.Content = e.Message
                td.MainIcon = MsgIcon.Error
                td.ExpandedInformation = e.ToString
                td.Footer = "[copymsg Copy Message]"
                If SupportURL <> "" Then td.Footer += $"   [{SupportURL} Contact Support]"
                td.Show()
            End Using
        Catch
            MsgBox(e.GetType.Name + vbCrLf + vbCrLf + e.Message + vbCrLf + vbCrLf + e.ToString, MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Shared ShownMessages As String

    Public Shared Sub ShowWarning(mainInstruction As String,
                                  Optional content As String = Nothing,
                                  Optional onlyOnce As Boolean = False)

        If onlyOnce AndAlso ShownMessages?.Contains(mainInstruction + content) Then Exit Sub
        Show(mainInstruction, content, MsgIcon.Warning, MsgButtons.Ok)
        If onlyOnce Then ShownMessages += mainInstruction + content
    End Sub

    Public Shared Function ShowQuestion(mainInstruction As String,
        Optional buttons As MsgButtons = MsgButtons.OkCancel) As MsgResult

        Return Show(mainInstruction, Nothing, MsgIcon.None, buttons)
    End Function

    Public Shared Function ShowQuestion(mainInstruction As String,
                                        content As String,
                                        Optional buttons As MsgButtons = MsgButtons.OkCancel) As MsgResult
        Return Show(mainInstruction, content, MsgIcon.None, buttons)
    End Function

    Public Shared Function Show(mainInstruction As String,
                                content As String,
                                icon As MsgIcon,
                                buttons As MsgButtons,
                                Optional defaultButton As MsgResult = MsgResult.None) As MsgResult

        If mainInstruction Is Nothing Then mainInstruction = ""

        Using td As New TaskDialog(Of MsgResult)
            td.AllowCancel = False
            td.DefaultButton = defaultButton
            td.MainIcon = icon

            If content Is Nothing Then
                If mainInstruction.Length < 80 Then
                    td.MainInstruction = mainInstruction
                Else
                    td.Content = mainInstruction
                End If
            Else
                td.MainInstruction = mainInstruction
                td.Content = content
            End If

            If buttons = MsgButtons.OkCancel Then
                td.AddButton("OK", MsgResult.OK)
                td.AddButton("Cancel", MsgResult.Cancel) 'don't use system language
            Else
                td.CommonButtons = buttons
            End If

            Return td.Show()
        End Using
    End Function
End Class

Public Class TaskDialog(Of T)
    Inherits TaskDialogNative
    Implements IDisposable

    Private IdValueDic As New Dictionary(Of Integer, T)
    Private IdTextDic As New Dictionary(Of Integer, String)
    Private CommandLinkShieldList As New List(Of Integer)
    Private ButtonArray As IntPtr, RadioButtonArray As IntPtr
    Private Buttons As New List(Of TASKDIALOG_BUTTON)
    Private RadioButtons As New List(Of TASKDIALOG_BUTTON)

    Private Config As TASKDIALOGCONFIG

    Sub New()
        Config = New TASKDIALOGCONFIG()

        Config.cbSize = CUInt(Marshal.SizeOf(Config))
        Config.hwndParent = GetHandle()
        Config.hInstance = IntPtr.Zero
        Config.dwFlags = TASKDIALOG_FLAGS.TDF_ALLOW_DIALOG_CANCELLATION
        Config.dwCommonButtons = MsgButtons.None
        Config.MainIcon = New TASKDIALOGCONFIG_ICON_UNION(0)
        Config.FooterIcon = New TASKDIALOGCONFIG_ICON_UNION(0)
        Config.cxWidth = 0

        Config.cButtons = 0
        Config.cRadioButtons = 0
        Config.pButtons = IntPtr.Zero
        Config.pRadioButtons = IntPtr.Zero
        Config.nDefaultButton = 0
        Config.nDefaultRadioButton = 0

        Config.pszWindowTitle = DirectCast(Assembly.GetEntryAssembly().GetCustomAttributes(GetType(AssemblyProductAttribute), True)(0), AssemblyProductAttribute).Product
        Config.pszMainInstruction = ""
        Config.pszContent = ""
        Config.pszVerificationText = Nothing
        Config.pszExpandedInformation = Nothing
        Config.pszExpandedControlText = Nothing
        Config.pszCollapsedControlText = Nothing
        Config.pszFooter = Nothing

        Config.pfCallback = New PFTASKDIALOGCALLBACK(AddressOf DialogProc)
    End Sub

    Function GetHandle() As IntPtr
        Dim sb As New StringBuilder(260)
        Dim foregroundHandle = GetForegroundWindow()
        GetWindowModuleFileName(foregroundHandle, sb, 260)

        If Path.GetFileName(sb.ToString.Replace(".vshost", "")) =
            Path.GetFileName(System.Reflection.Assembly.GetEntryAssembly().Location) Then

            Return foregroundHandle
        End If
    End Function

#Region "Constants"
    Const TDE_CONTENT As Integer = 0
    Const TDE_EXPANDED_INFORMATION As Integer = 1
    Const TDE_FOOTER As Integer = 2
    Const TDE_MAIN_INSTRUCTION As Integer = 3

    Const TDN_CREATED As Integer = 0
    Const TDN_NAVIGATED As Integer = 1
    Const TDN_BUTTON_CLICKED As Integer = 2
    Const TDN_HYPERLINK_CLICKED As Integer = 3
    Const TDN_TIMER As Integer = 4
    Const TDN_DESTROYED As Integer = 5
    Const TDN_RADIO_BUTTON_CLICKED As Integer = 6
    Const TDN_DIALOG_CONSTRUCTED As Integer = 7
    Const TDN_VERIFICATION_CLICKED As Integer = 8
    Const TDN_HELP As Integer = 9
    Const TDN_EXPANDO_BUTTON_CLICKED As Integer = 10

    Const TDM_NAVIGATE_PAGE As Integer = &H400 + 101
    Const TDM_CLICK_BUTTON As Integer = &H400 + 102 'wParam = Button ID
    Const TDM_SET_MARQUEE_PROGRESS_BAR As Integer = &H400 + 103 'wParam = 0 (nonMarque) wParam != 0 (Marquee)
    Const TDM_SET_PROGRESS_BAR_STATE As Integer = &H400 + 104 'wParam = new progress state
    Const TDM_SET_PROGRESS_BAR_RANGE As Integer = &H400 + 105 'lParam = MAKELPARAM(nMinRange, nMaxRange)
    Const TDM_SET_PROGRESS_BAR_POS As Integer = &H400 + 106 'wParam = new position
    Const TDM_SET_PROGRESS_BAR_MARQUEE As Integer = &H400 + 107 'wParam = 0 (stop marquee), wParam != 0 (start marquee), lparam = speed (milliseconds between repaints)
    Const TDM_SET_ELEMENT_TEXT As Integer = &H400 + 108 'wParam = element (TASKDIALOG_ELEMENTS), lParam = new element text (LPCWSTR)
    Const TDM_CLICK_RADIO_BUTTON As Integer = &H400 + 110 'wParam = Radio Button ID
    Const TDM_ENABLE_BUTTON As Integer = &H400 + 111 'lParam = 0 (disable), lParam != 0 (enable), wParam = Button ID
    Const TDM_ENABLE_RADIO_BUTTON As Integer = &H400 + 112 'lParam = 0 (disable), lParam != 0 (enable), wParam = Radio Button ID
    Const TDM_CLICK_VERIFICATION As Integer = &H400 + 113 'wParam = 0 (unchecked), 1 (checked), lParam = 1 (set key focus)
    Const TDM_UPDATE_ELEMENT_TEXT As Integer = &H400 + 114 'wParam = element (TASKDIALOG_ELEMENTS), lParam = new element text (LPCWSTR)
    Const TDM_SET_BUTTON_ELEVATION_REQUIRED_STATE As Integer = &H400 + 115 'wParam = Button ID, lParam = 0 (elevation not required), lParam != 0 (elevation required)
    Const TDM_UPDATE_ICON As Integer = &H400 + 116 'wParam = icon element (TASKDIALOG_ICON_ELEMENTS), lParam = new icon (hIcon if TDF_USE_HICON_* was set, PCWSTR otherwise)
#End Region

#Region "Properties"

    Private AllowCancelValue As Boolean

    WriteOnly Property AllowCancel() As Boolean
        Set(Value As Boolean)
            If Value Then
                Config.dwFlags = Config.dwFlags Or TASKDIALOG_FLAGS.TDF_ALLOW_DIALOG_CANCELLATION
            ElseIf (Config.dwFlags And TASKDIALOG_FLAGS.TDF_ALLOW_DIALOG_CANCELLATION) = TASKDIALOG_FLAGS.TDF_ALLOW_DIALOG_CANCELLATION Then
                Config.dwFlags = Config.dwFlags Xor TASKDIALOG_FLAGS.TDF_ALLOW_DIALOG_CANCELLATION
            End If
        End Set
    End Property

    Property MainInstruction() As String
        Get
            Return Config.pszMainInstruction
        End Get
        Set(Value As String)
            Config.pszMainInstruction = Value
        End Set
    End Property

    Property Content() As String
        Get
            Return Config.pszContent
        End Get
        Set(Value As String)
            Config.pszContent = ExpandWikiMarkup(Value)
        End Set
    End Property

    Property ExpandedInformation() As String
        Get
            Return Config.pszExpandedInformation
        End Get
        Set(Value As String)
            Config.pszExpandedInformation = ExpandWikiMarkup(Value)
        End Set
    End Property

    Property VerificationText() As String
        Get
            Return Config.pszVerificationText
        End Get
        Set(Value As String)
            Config.pszVerificationText = Value
        End Set
    End Property

    Property DefaultButton() As MsgResult
        Get
            Return CType(Config.nDefaultButton, MsgResult)
        End Get
        Set(Value As MsgResult)
            Config.nDefaultButton = Value
        End Set
    End Property

    Property Footer() As String
        Get
            Return Config.pszFooter
        End Get
        Set(Value As String)
            Config.pszFooter = ExpandWikiMarkup(Value)
        End Set
    End Property

    WriteOnly Property MainIcon() As MsgIcon
        Set(Value As MsgIcon)
            Config.MainIcon = New TASKDIALOGCONFIG_ICON_UNION(Value)
        End Set
    End Property

    Private SelectedIDValue As Integer = -1

    Property SelectedID As Integer
        Get
            Return SelectedIDValue
        End Get
        Set(value As Integer)
            For Each i In IdValueDic
                If i.Key = value Then SelectedIDValue = value
            Next
        End Set
    End Property

    Private SelectedValueValue As T

    Property SelectedValue() As T
        Get
            If IdValueDic.ContainsKey(SelectedID) Then Return IdValueDic(SelectedID)
            Return SelectedValueValue
        End Get
        Set(value As T)
            SelectedValueValue = value
        End Set
    End Property

    Private SelectedTextValue As String

    Property SelectedText() As String
        Get
            If IdTextDic.ContainsKey(SelectedID) Then Return IdTextDic(SelectedID)
            Return SelectedTextValue
        End Get
        Set(value As String)
            SelectedTextValue = value
        End Set
    End Property

    Property CheckBoxChecked() As Boolean
        Get
            Return (Config.dwFlags And TASKDIALOG_FLAGS.TDF_VERIFICATION_FLAG_CHECKED) = TASKDIALOG_FLAGS.TDF_VERIFICATION_FLAG_CHECKED
        End Get
        Set(value As Boolean)
            If value Then
                Config.dwFlags = Config.dwFlags Or TASKDIALOG_FLAGS.TDF_VERIFICATION_FLAG_CHECKED
            ElseIf CheckBoxChecked Then
                Config.dwFlags = Config.dwFlags Xor TASKDIALOG_FLAGS.TDF_VERIFICATION_FLAG_CHECKED
            End If
        End Set
    End Property

    Private CommonButtonsValue As MsgButtons

    Property CommonButtons() As MsgButtons
        Get
            Return Config.dwCommonButtons
        End Get
        Set(Value As MsgButtons)
            Config.dwCommonButtons = Value
        End Set
    End Property

    Private TimeoutValue As Integer

    Property Timeout As Integer
        Get
            Return CInt(TimeoutValue / 1000)
        End Get
        Set(Value As Integer)
            TimeoutValue = Value * 1000

            If Value > 0 Then
                Config.dwFlags = Config.dwFlags Or TASKDIALOG_FLAGS.TDF_CALLBACK_TIMER
            End If
        End Set
    End Property
#End Region

#Region "Methods"

    Sub AddButton(text As String, value As T)
        Dim id = 1000 + IdValueDic.Count + 1
        IdValueDic(id) = value
        Buttons.Add(New TASKDIALOG_BUTTON(id, text))
    End Sub

    Function ExpandWikiMarkup(value As String) As String
        If value.Contains("[") Then
            Dim re As New Regex("\[(.*?) (.+?)\]")
            Dim m = re.Match(value)

            If m.Success Then
                Config.dwFlags = Config.dwFlags Or TASKDIALOG_FLAGS.TDF_ENABLE_HYPERLINKS
                value = re.Replace(value, "<a href=""$1"">$2</a>")
            End If
        End If

        Return value
    End Function

    Sub AddCommandLink(text As String, Optional value As T = Nothing)
        Dim id = 1000 + IdValueDic.Count + 1
        Dim temp As Object = text
        IdValueDic(id) = If(value Is Nothing, CType(temp, T), value)
        IdTextDic(id) = text
        Buttons.Add(New TASKDIALOG_BUTTON(id, text))
        Config.dwFlags = Config.dwFlags Or TASKDIALOG_FLAGS.TDF_USE_COMMAND_LINKS
    End Sub

    Sub AddCommandLink(text As String,
                       description As String,
                       value As T,
                       Optional setShield As Boolean = False)

        Dim id = 1000 + IdValueDic.Count + 1
        IdValueDic(id) = value
        If setShield Then CommandLinkShieldList.Add(id)
        If description <> "" Then text = text + vbCrLf + description
        Buttons.Add(New TASKDIALOG_BUTTON(id, text))
        Config.dwFlags = Config.dwFlags Or TASKDIALOG_FLAGS.TDF_USE_COMMAND_LINKS
    End Sub

    Sub AddRadioButton(text As String, value As T)
        Dim id = 1000 + IdValueDic.Count + 1
        IdValueDic(id) = value
        RadioButtons.Add(New TASKDIALOG_BUTTON(id, text))
    End Sub

    Function Show() As T
        MarshalDialogControlStructs()
        Dim isChecked As Boolean
        Dim hr = TaskDialogIndirect(Config, Nothing, Nothing, isChecked)
        CheckBoxChecked = isChecked
        If hr < 0 Then Marshal.ThrowExceptionForHR(hr)
        If TypeOf SelectedValue Is MsgResult Then SelectedValue = DirectCast(CObj(SelectedID), T)
        Return SelectedValue
    End Function

    Private ExitTickCount As Integer

    Private Function DialogProc(hwnd As IntPtr,
                                msg As UInteger,
                                wParam As IntPtr,
                                lParam As IntPtr,
                                lpRefData As IntPtr) As Integer
        Select Case msg
            Case TDN_BUTTON_CLICKED, TDN_RADIO_BUTTON_CLICKED
                If TypeOf SelectedValue Is MsgResult Then
                    SelectedIDValue = wParam.ToInt32
                Else
                    SelectedID = wParam.ToInt32
                End If
            Case TDN_TIMER
                If ExitTickCount = 0 Then
                    ExitTickCount = Environment.TickCount + Timeout * 1000
                End If

                If Environment.TickCount > ExitTickCount Then
                    SendMessage(hwnd, TDM_CLICK_BUTTON, New IntPtr(MsgResult.OK), IntPtr.Zero)
                End If
            Case TDN_HYPERLINK_CLICKED
                Dim url = Marshal.PtrToStringUni(lParam)

                If url.StartsWith("mailto") OrElse url.StartsWith("http") Then
                    Process.Start(url)
                ElseIf url = "copymsg" Then
                    Dim thread As New Thread(
                        New ThreadStart(Sub()
                                            System.Windows.Forms.Clipboard.SetText(MainInstruction + vbCrLf + vbCrLf + Content + vbCrLf + vbCrLf + ExpandedInformation)
                                            MsgBox("Message was copied to clipboard.",
                                                   MsgBoxStyle.Information,
                                                   DirectCast(Assembly.GetEntryAssembly().GetCustomAttributes(GetType(AssemblyProductAttribute), True)(0), AssemblyProductAttribute).Product)
                                        End Sub))
                    thread.SetApartmentState(ApartmentState.STA)
                    thread.Start()
                End If
            Case TDN_CREATED
                For Each i In CommandLinkShieldList
                    SendMessage(hwnd, TDM_SET_BUTTON_ELEVATION_REQUIRED_STATE, New IntPtr(i), New IntPtr(1))
                Next
        End Select
    End Function

    Private Sub MarshalDialogControlStructs()
        If Not Buttons Is Nothing AndAlso Buttons.Count > 0 Then
            ButtonArray = AllocateAndMarshalButtons(Buttons)
            Config.pButtons = ButtonArray
            Config.cButtons = CUInt(Buttons.Count)
        End If

        If Not RadioButtons Is Nothing AndAlso RadioButtons.Count > 0 Then
            RadioButtonArray = AllocateAndMarshalButtons(RadioButtons)
            Config.pRadioButtons = RadioButtonArray
            Config.cRadioButtons = CUInt(RadioButtons.Count)
        End If
    End Sub

    Private Shared Function AllocateAndMarshalButtons(structs As List(Of TASKDIALOG_BUTTON)) As IntPtr
        Dim initialPtr = Marshal.AllocHGlobal(Marshal.SizeOf(GetType(TASKDIALOG_BUTTON)) * structs.Count)
        Dim currentPtr = initialPtr

        For Each button In structs
            Marshal.StructureToPtr(button, currentPtr, False)
            currentPtr = CType((currentPtr.ToInt64 + Marshal.SizeOf(button)), IntPtr)
        Next

        Return initialPtr
    End Function

#End Region

#Region "IDispose Pattern"

    Private disposed As Boolean

    Sub Dispose() Implements IDisposable.Dispose
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub

    Protected Overrides Sub Finalize()
        Try
            Dispose(False)
        Finally
            MyBase.Finalize()
        End Try
    End Sub

    Protected Sub Dispose(disposing As Boolean)
        If Not disposed Then
            disposed = True

            If ButtonArray <> IntPtr.Zero Then
                Marshal.FreeHGlobal(ButtonArray)
                ButtonArray = IntPtr.Zero
            End If

            If RadioButtonArray <> IntPtr.Zero Then
                Marshal.FreeHGlobal(RadioButtonArray)
                RadioButtonArray = IntPtr.Zero
            End If

            If disposing Then
            End If
        End If
    End Sub

#End Region

End Class

Public Class TaskDialogNative
    <DllImport("comctl32", CharSet:=CharSet.Unicode, SetLastError:=True)>
    Shared Function TaskDialogIndirect(<[In]()> pTaskConfig As TASKDIALOGCONFIG, <Out()> ByRef pnButton As Integer, <Out()> ByRef pnRadioButton As Integer, <MarshalAs(UnmanagedType.Bool)> <Out()> ByRef pVerificationFlagChecked As Boolean) As Integer
    End Function

    <DllImport("user32.dll")>
    Shared Function GetForegroundWindow() As IntPtr
    End Function

    <DllImport("user32.dll", CharSet:=CharSet.Unicode)>
    Shared Function GetWindowModuleFileName(hwnd As IntPtr,
                                            lpszFileName As StringBuilder,
                                            cchFileNameMax As UInteger) As UInteger
    End Function

    <DllImport("user32.dll")>
    Shared Function SendMessage(handle As IntPtr,
                                message As Int32,
                                wParam As IntPtr,
                                lParam As IntPtr) As IntPtr
    End Function

    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode, Pack:=4)>
    Public Class TASKDIALOGCONFIG
        Public cbSize As UInteger
        Public hwndParent As IntPtr
        Public hInstance As IntPtr
        Public dwFlags As TASKDIALOG_FLAGS
        Public dwCommonButtons As MsgButtons
        <MarshalAs(UnmanagedType.LPWStr)>
        Public pszWindowTitle As String
        Public MainIcon As TASKDIALOGCONFIG_ICON_UNION
        <MarshalAs(UnmanagedType.LPWStr)>
        Public pszMainInstruction As String
        <MarshalAs(UnmanagedType.LPWStr)>
        Public pszContent As String
        Public cButtons As UInteger
        Public pButtons As IntPtr
        Public nDefaultButton As Integer
        Public cRadioButtons As UInteger
        Public pRadioButtons As IntPtr
        Public nDefaultRadioButton As Integer
        <MarshalAs(UnmanagedType.LPWStr)>
        Public pszVerificationText As String
        <MarshalAs(UnmanagedType.LPWStr)>
        Public pszExpandedInformation As String
        <MarshalAs(UnmanagedType.LPWStr)>
        Public pszExpandedControlText As String
        <MarshalAs(UnmanagedType.LPWStr)>
        Public pszCollapsedControlText As String
        Public FooterIcon As TASKDIALOGCONFIG_ICON_UNION
        <MarshalAs(UnmanagedType.LPWStr)>
        Public pszFooter As String
        Public pfCallback As PFTASKDIALOGCALLBACK
        Public lpCallbackData As IntPtr
        Public cxWidth As UInteger
    End Class

    Public Enum TASKDIALOG_FLAGS
        NONE = 0
        TDF_ENABLE_HYPERLINKS = &H1
        TDF_USE_HICON_MAIN = &H2
        TDF_USE_HICON_FOOTER = &H4
        TDF_ALLOW_DIALOG_CANCELLATION = &H8
        TDF_USE_COMMAND_LINKS = &H10
        TDF_USE_COMMAND_LINKS_NO_ICON = &H20
        TDF_EXPAND_FOOTER_AREA = &H40
        TDF_EXPANDED_BY_DEFAULT = &H80
        TDF_VERIFICATION_FLAG_CHECKED = &H100
        TDF_SHOW_PROGRESS_BAR = &H200
        TDF_SHOW_MARQUEE_PROGRESS_BAR = &H400
        TDF_CALLBACK_TIMER = &H800
        TDF_POSITION_RELATIVE_TO_WINDOW = &H1000
        TDF_RTL_LAYOUT = &H2000
        TDF_NO_DEFAULT_RADIO_BUTTON = &H4000
    End Enum

    <StructLayout(LayoutKind.Explicit, CharSet:=CharSet.Unicode)>
    Public Structure TASKDIALOGCONFIG_ICON_UNION
        Sub New(i As Integer)
            spacer = IntPtr.Zero
            pszIcon = 0
            hMainIcon = i
        End Sub

        <FieldOffset(0)>
        Public hMainIcon As Integer
        <FieldOffset(0)>
        Public pszIcon As Integer
        <FieldOffset(0)>
        Public spacer As IntPtr
    End Structure

    <StructLayout(LayoutKind.Sequential,
    CharSet:=CharSet.Unicode, Pack:=4)>
    Public Structure TASKDIALOG_BUTTON
        Sub New(n As Integer, txt As String)
            nButtonID = n
            pszButtonText = txt
        End Sub

        Public nButtonID As Integer
        <MarshalAs(UnmanagedType.LPWStr)>
        Public pszButtonText As String
    End Structure
End Class

Public Enum MsgButtons
    None = &H0
    Ok = &H1
    Yes = &H2
    No = &H4
    Cancel = &H8
    Retry = &H10
    RetryCancel = Retry Or Cancel
    Close = &H20
    OkCancel = Ok Or Cancel
    YesNo = Yes Or No
    YesNoCancel = YesNo Or Cancel
End Enum

Public Enum MsgIcon
    None = 0
    Warning = 65535 'TD_WARNING_ICON
    [Error] = 65534 'TD_ERROR_ICON
    Info = 65533 'TD_INFORMATION_ICON
    Shield = 65532 'TD_SHIELD_ICON
    SecurityShieldBlue = 65531
    SecurityWarning = 65530
    SecurityError = 65529
    SecuritySuccess = 65528
    SecurityShieldGray = 65527
End Enum

Public Enum MsgResult
    None = 0
    OK = 1
    Cancel = 2
    Abort = 3
    Retry = 4
    Ignore = 5
    Yes = 6
    No = 7
End Enum