rform the default action or
 not&lt;/param&gt;
Private Sub grdThis_MouseDown(Button As Integer, Shift As Integer, x As Single,
 y As Single, bDoDefault As Boolean)
   
   ' This would allow you to have a sort of simple select mode
   ' where any selection is added to the existing selection:
   'Shift = vbCtrlMask
   
End Sub

Private Sub grdThis_MouseUp(Button As Integer, Shift As Integer, x As Single, y
 As Single)
   Dim bSelection As Boolean
   bSelection = ((grdThis.SelectedRow &gt; 0) And (grdThis.Sele