e first row in the grid
''' &lt;/summary&gt;
Private Sub cmdDelRow_Click()
   '
   If (grdThis.Rows &gt; 0) Then
      grdThis.RemoveRow 1
   End If
   '
End Sub

''' &lt;summary&gt;
''' Clear all grid content
''' &lt;/summary&gt;
Private Sub cmdEmpty_Click()
   grdThis.Clear
End Sub

''' &lt;summary&gt;
''' Get information about the selection and print to debug
''' &lt;/summary&gt;
Private Sub cmdGetSel_Click()
Dim iRow As Long, iCol As Long
   With grdThis
      For iRow = 1 To .Rows
         If .RowMode 