FlexGrid1.Rows = 0
FlexGrid1.Cols = 0

Private Sub Form_Load()
  MSFlexGrid1.SelectionMode = 1
End Sub
 
Private Sub MSFlexGrid1_RowColChange()
  If MSFlexGrid1.Rows > 0 Then MSFlexGrid1.Col = 0
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de