Add Command butons to a mshFlexgrid using vb6

Add a command button to the last column in a mshflexgrid with
the index of the row


Sub AddaRowToGrid(grd As MSHFlexGrid)
        Dim LastRow As Integer
        Dim LastColumn As Integer
        cmdViewRtf(0).Visible = False 'hide first button in header row
        With grd
        .Rows = .Rows + 1 'add a row
        LastRow = .Rows - 1
        LastColumn = Cols - 1
        'add cmdButton to last centered in row last column (cmdViewRtf) with the index of the row number
        End With
End Sub
how to write this ?