with msflexgrid1
.textmatrix(i, 0) = i
.textmatrix(i, 1) = archives(i)
.rowheight(i) = 300
end with
next i
end sub
private sub msflexgrid1_click()
dim c as integer, r as integer
with msflexgrid1
c = .col
r = .row
if c > 1 and r > 0 then
combo1.left = .left + .colpos(c) + 50
combo1.top = .top + .rowpos(r) + 50
