Hi

I have now tried to accomplish the following task for some time,

What I want to do is the following.
When I click on a cell I want to change the color properties of that cell.
Works nicely.
    MSHFlexGrid1.CellBackColor = &H0
    MSHFlexGrid1.CellForeColor = &H80000005
When I then click another cell, I want the already chosen one to
be set back to the previous state, which actually just is the
reverse.
Any ideas

Thanks in advance
Karsten

Hi Again

I solved the problem, it not looking nice, but it works.

Public Chosen, NowChosen as Long

Private Sub MSHFlexGrid1_Click()
    Chosen = MSHFlexGrid1.RowSel
    MSHFlexGrid1.CellBackColor = &H0
    MSHFlexGrid1.CellForeColor = &H80000005
    If NowChosen <> 0 Then
        With MSHFlexGrid1
            .Row = NowChosen
            .CellBackColor = &H80000005
            .CellForeColor = &H0
        End With
        MSHFlexGrid1.RowSel = Chosen
    End If
    NowChosen = MSHFlexGrid1.RowSel
    MSHFlexGrid1.Row = Chosen
    MSHFlexGrid1.SetFocus
End Sub

Cheers
Karsten

Careful with the statement:

Public Chosen, NowChosen as Long

In VB, Chosen will be a Variant. If you want a Long, like in this case, you have to declare it:

Public Chosen as long, NowChosen as Long

Even if it doesn't look nice, your solution is the way to go
Marco

Hi Marco
Not because I want to argue, but when i looked in MSDN, it said.

From MSDN.

Col, Row Properties (MSHFlexGrid)

Returns or sets the coordinates of the active cell in an MSHFlexGrid. These properties are not available at design time.

Syntax

object.Col [=number]
object.Row [=number]

Syntax for the Col and Row properties has these parts:

Part Description
object Anobject expression that evaluates to an object in the Applies To list.
Number A Long value that specifies the position of the active cell.

Cheers
Karsten

well, that is exact what I meant: both Chosen and NewChosen must be Long. In your declaration, Chosen was a Variant
Marco