Private Sub MailLoad(ByVal Item As Object) Handles Application.ItemLoad
        If TypeOf (Item) Is Outlook.MailItem Then
            Try
                Dim mailItem As Outlook.MailItem = TryCast(Item, _
                  Outlook.MailItem)
                mydebug.print(mailItem.Subject)
            Catch ex As System.Exception
                mydebug.print("ERROR")
            End Try
        End If
    End Sub