Place CheckBox on MSFlexGrid & must be Scroll as Grid get scrolled up & down

'2 pictures on the form picChecked and picUnchecked

Private Sub SetRow(ByVal idx As Integer, ByVal person_name As String, ByVal needs_air As Boolean, ByVal needs_hotel As Boolean, ByVal needs_car As Boolean)
    With MSFlexGrid1
        .TextMatrix(idx, 0) = person_name
        .Row = idx

        .Col = 1
        If needs_air Then
            Set .CellPicture = picChecked.Picture
        Else
            Set .CellPicture = picUnchecked.Picture
        End If

        .Col = 2
        If needs_hotel Then
            Set .CellPicture = picChecked.Picture
        Else
            Set .CellPicture = picUnchecked.Picture
        End If

        .Col = 3
        If needs_car Then
            Set .CellPicture = picChecked.Picture
        Else
            Set .CellPicture = picUnchecked.Picture
        End If
    End With
End Sub
Private Sub Form_Load()
    With MSFlexGrid1
        .BackColor = &HE0E0E0
        .Rows = 4
        .Cols = 4
        .FixedCols = 1
        .FixedRows = 1

        .TextMatrix(0, 0) = "Name"
        .TextMatrix(0, 1) = "Air"
        .TextMatrix(0, 2) = "Hotel"
        .TextMatrix(0, 3) = "Car"
    End With

    SetRow 1, "Alice", True, True, False
    SetRow 2, "Bob", True, False, False
    SetRow 3, "Carter", False, False, True
End Sub

Private Sub Form_Resize()
    MSFlexGrid1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub


' Toggle the check box.
Private Sub MSFlexGrid1_Click()
    If MSFlexGrid1.Col < 1 Or MSFlexGrid1.Row < 1 Then Exit Sub

    If MSFlexGrid1.CellPicture = picChecked Then
        Set MSFlexGrid1.CellPicture = picUnchecked
    Else
        Set MSFlexGrid1.CellPicture = picChecked
    End If
End Sub

Hello
Mr. Surki & Mr. iboutchkine,

Thanx a lot for yr immidiate reply with good answers. This will help me a lot.

Thanx.
From Santosh.

SantoshGokhale@devx, an EE Moderator will handle this for you.
Moderator, my recommended disposition is:

    Split points between: surki and iboutchkine

DanRollins -- EE database cleanup volunteer

Per recommendation, force-accepted.

Netminder
CS Moderator

iboutchkine: points for you at https://www.experts-exchange.com/jsp/qShow.jsp?ta=visualbasic&qid=20328908