te Sub TestVeryLongText()
Dim sOut As String
Dim i As Long
   For i = 1 To 4096
      If Rnd &lt; 0.2 Then
         sOut = sOut &amp; " "
      Else
         sOut = sOut &amp; Chr$(Rnd * 26 + Asc("A"))
      End If
   Next i
   grdThis.CellText(1, 5) = sOut
   
   ' test visible...
   grdThis.Redraw = False
   grdThis.CellSelected(48, 2) = True
   grdThis.Redraw = True
   
End Sub

''' &lt;summary&gt;
''' Switch on/off thin border on any Window with a handle and a 3D border.
''' &lt;/summary&gt;
''' &lt;par