いつもお世話になります。
MSFlexGridの個々のセルの色を分けたいのですが
どうすればよろしいのでしょうか？

Dim i As Long                  'ループ用カウンター
Dim Cnt As Long                '行の総数を取得

Dim MsInfo  As MSHFlexGrid

Set MsInfo = Form1.Info

With MsInfo
    Cnt = .Rows - 1
    .Col = 4
    For i = 1 To Cnt
    .Row = i
    If .Text < 0 Then
        .ForeColor = RGB(255, 0, 0)
    End If    
    Next
End With

>     If .Text < 0 Then
>         .ForeColor = RGB(255, 0, 0)
>     End If    

ForeColorではなく、CellForeColorを使いましょう。

> ForeColorではなく、CellForeColorを使いましょう。

LESIA さんありがとうございます。