Outlook ADXForm info passed to Reply message ADXForm

    Public Overrides Sub ProcessReply(ByVal response As Object, ByVal e As AddinExpress.MSO.ADXCancelEventArgs)
        If TypeOf Me.ItemObj Is Outlook.MailItem Then
            Dim mail As Outlook.MailItem = TryCast(Me.ItemObj, Outlook.MailItem)
            If mail IsNot Nothing Then

                '******I THINK THIS IS RETURNING THE NEW FORM ON THE REPLY WHICH DOESN"T HAVE A ADXOLForm1_Ticket loaded yet. I need the ORIGINAL form before the reply was hit.
                Dim theForm As ADXOutlookTicket.ADXOlForm1_Ticket = TryCast(ADXOutlookTicket.ADXOlForm1_Ticket.ActiveForm, ADXOutlookTicket.ADXOlForm1_Ticket)
                Dim pk As String = theForm.TickTxt.Text

            End If
        End If
    End Sub

Public Class GlobalVars

    Public Shared GloMsgID As String = Nothing
    Public Shared GloPK As String = Nothing
    Public Shared GloClosedChk As Boolean = False

End Class

    Public Overrides Sub ProcessReply(ByVal response As Object, ByVal e As AddinExpress.MSO.ADXCancelEventArgs)
        'This detects if the Reply or ReplyAll button has been hit.
        If TypeOf Me.ItemObj Is Outlook.MailItem Then
            Dim mail As Outlook.MailItem = TryCast(Me.ItemObj, Outlook.MailItem)
            If mail IsNot Nothing Then
                GloMsgID = mail.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x007D001E") 'Grab the MessageHeader and apply it to the global variable GloMsgID so it can be used when the ADXForm1 loads.
                Marshal.ReleaseComObject(mail)
            End If
        End If
    End Sub

    Private adxOutlookItem As OutlookItemEventsClass1

    Private Sub AddinModule_AddinStartupComplete(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.AddinStartupComplete
        'SUB 1 of 3 - THIS IS FIRED WHEN OUTLOOK STARTS
        Debug.Print("The AddinStartupComplete event has occurred.")
        Debug.Print("The add-in has been loaded by Outlook " & Me.HostMajorVersion.ToString())

        ' This creates an instance of the class that handles the events of an Outlook item
        adxOutlookItem = New OutlookItemEventsClass1(Me) '<-- Creates the instance when Outlook starts for detecing outlook events
    End Sub

    Private Sub AddinModule_AddinBeginShutdown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.AddinBeginShutdown
        'SUB 2 of 3

        ' this event may not occur in Outlook 2010, see the blog post 'Outlook 2010 Fast Shutdown feature'
        ' at http://www.add-in-express.com/creating-addins-blog/2010/05/04/outlook2010-fast-shutdown/

        Debug.Print("The AddinBeginShutdown event has occurred.")

        If adxOutlookItem.IsConnected Then
            adxOutlookItem.RemoveConnection()
            Debug.Print("Disconnected from the previously connected item.")
        End If
        adxOutlookItem = Nothing
    End Sub

    Private Sub adxOutlookEvents_InspectorActivate(ByVal sender As System.Object, ByVal inspector As System.Object, ByVal folderName As System.String) Handles AdxOutlookAppEvents1.InspectorActivate
        'SUB 3 of 3 - THIS FIRES WHEN THE INSPECTOR WINDOW IS OPENED

        Debug.Print("The InspectorActivate event has occurred.")
        Dim theInspector As Outlook.Inspector = TryCast(inspector, Outlook.Inspector)
        If theInspector IsNot Nothing Then
            Dim item As Object = theInspector.CurrentItem
            If TypeOf item Is Outlook.MailItem Then
                If adxOutlookItem.IsConnected Then
                    adxOutlookItem.RemoveConnection()
                    Debug.Print("Disconnected from the previously connected item.")
                End If
                adxOutlookItem.ConnectTo(item, True)
            Else
                Marshal.ReleaseComObject(item)
            End If
        End If
    End Sub

    Private Sub adxOutlookEvents_ItemSend(sender As System.Object, e As AddinExpress.MSO.ADXOlItemSendEventArgs) Handles AdxOutlookAppEvents1.ItemSend
        'Grabs the Send button event from the active Outlook window

        If Not IsNothing(GloPK) And GloClosedChk = True Then 'don't do anything if your form was never loaded
            MessageBox.Show("You checked the Closed Checkbox for: " & GloPK & "!")
            'do stuff like write to a database with your global variables
        ElseIf Not IsNothing(GloPK) Then
            MessageBox.Show(GloPK & " at send.")
            'do other stuff
        End If

    End Sub

    Public Sub ADXOlForm1_ADXBeforeFormShow() Handles MyBase.ADXBeforeFormShow

    'Query your database set/pass the global variables here

    'Or you could decide not to load the form at all:
    Call WipeGlobals()
    Me.Close()

    End Sub

    Private Sub WipeGlobals()
        'clear all of the variables if you didn't use the form
        GloMsgID = Nothing
        GloPK = Nothing
        GloClosedChk = False
    End Sub

    Private Sub ADXFormShow() Handles MyBase.ADXAfterFormShow

        GloPK = Me.TickTxt.Text 'Set the global variable after the form shows.
        'MessageBox.Show(GloPK & " ADXAfterFormShow")

    End Sub