idth - 4 * Screen.TwipsPerPixelX, Me.ScaleHeight - 4 *
    Screen.TwipsPerPixelY
End Sub

Private Sub grdOutlook_ColumnClick(ByVal lCol As Long)
Dim iCol As Long
Dim sJunk() As String, eJunk() As cShellSortOrderCOnstants

   If m_bGroup Then
      If vbNo = MsgBox("Sorting by this column will remove your groupings.  Are
       you sure you want to do this?" &amp; vbCrLf &amp; vbCrLf &amp; "Note: this problem
       is fixable in code, but I leave it as an exercise...", vbYesNo Or
       vbQuestion) Then
   