    =   "&amp;All Messages"
            Index           =   2
         End
      End
      Begin VB.Menu mnuView 
         Caption         =   "&amp;Grouping..."
         Index           =   2
      End
   End
End
Attribute VB_Name = "frmOutlookDemo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private m_bGroup As Boolean

Public Sub DoGroup(ByVal iItems As Long, sGroupColumns() As String, eOrder() As
 cSh