uateTextHeight(i, 14) +
             grdOutlook.DefaultRowHeight
            grdOutlook.RowHeight(i) = lHeight
         End If
      Next i
   End If
   grdOutlook.Redraw = True
End Sub

Private Sub mnuView_Click(Index As Integer)
   If (Index = 2) Then
      Dim fC As frmOutlookGroup
      Dim j As Long

      Set fC = New frmOutlookGroup
      For j = mnuColumns.LBound To mnuColumns.UBound
         fC.AddField mnuColumns(j).Caption, mnuColumns(j).Tag
      Next j
            
      fC.Show vbModal
      I