у меня используется сгруппированная (Band) MSHFlexGrid, я пытаюсь поместить картинку в нулевую колонку:

Public Sub refr_Grid()
num = 1
' If MSHFlexGrid1.BandLevel = 1 Then
If MSHFlexGrid1.Rows > 1 Then
While num <= MSHFlexGrid1.Rows - 1
MSHFlexGrid1.Row = num
MSHFlexGrid1.Col = 9
If MSHFlexGrid1.Text = "True" Then
MSHFlexGrid1.Col = 0
Set MSHFlexGrid1.CellPicture = LoadPicture(App.Path & "\delmark.BMP")
Else
MSHFlexGrid1.Col = 1
Set MSHFlexGrid1.CellPicture = Nothing
End If
num = num + 1
Wend
End If
' End If
End Sub



В отладке получается... а когда запускаю программу - картинка только еле заметно мигает и исчезает. В другой (не сгруппированной) это работает как надо...

Спасибо!