grdThis
      .AddColumn "New" &amp; s_iItem, "New:" &amp; s_iItem
   End With
End Sub

''' &lt;summary&gt;
''' Inserts a new row into the grid at position 1
''' &lt;/summary&gt;
Private Sub cmdAddRow_Click()
   '
   If (grdThis.Rows &gt; 0) Then
      grdThis.AddRow 1
   Else
      grdThis.AddRow
   End If
   '
End Sub

''' &lt;summary&gt;
''' Auto-sizes all of the rows to fit their contents
''' given the current column sizes.
''' &lt;/summary&gt;
Private Sub cmdAutoRowHeight_Click()
Dim lRow As Long
   Sc