Private Sub Command1_Click()
Dim Tabl( 5 ,  5 ) As Integer
Dim c As Integer 
Dim w As Integer
For w =  0  To  4 
    For c =  0  To  4 
        Tabl(w, c) = Int(Rnd *  150 ) 
    Next c
Next w
MSFlexGrid1.Rows =  6  ': <----ВОТ ЗДЕСЬ ВЫДАЕТ ОШИБКУ  MSFlexGrid1.Cols = 6
MSFlexGrid1.Row =  0    
For c =  0  To  5 
    MSFlexGrid1.Col = c   
    MSFlexGrid1.ColWidth(c) =  500   
    MSFlexGrid1.Text = c
Next c
MSFlexGrid1.Col =  0    
For w =  1  To  5 
    MSFlexGrid1.Row = w
    MSFlexGrid1.Text = w
Next w
For w =  1  To  5 
    For c =  1  To  5 
        MSFlexGrid1.Col = c
        MSFlexGrid1.Row = w
        MSFlexGrid1.Text = Tabl(w -  1 , c -  1 )
    Next c
Next w
End Sub