Option Explicit
Dim X As Boolean
Private Sub Form_Load()
Dim Red  As Integer, Kol As Integer, i As Integer
Dim tmp As String

MSFlexGrid1.Col = 1
For i = 1 To 10
tmp = "Tekst: " & Str(i)
MSFlexGrid1.Row = i
MSFlexGrid1.Text = tmp
Next i
X = True
End Sub


Private Sub MSFlexGrid1_RowColChange()
If X = True Then
MsgBox "Red: " & MSFlexGrid1.Row & "   " & MSFlexGrid1.Text
End If
End Sub