Private Sub Command1_Click()
MSFlexGrid1.Rows = 2
MSFlexGrid1.Cols = 2
MSFlexGrid1.FixedRows = 0
MSFlexGrid1.FixedCols = 0
Dim i As Integer, j As Integer
For i = 0 To 1
For j = 0 To 1
MSFlexGrid1.RowHeight(i) = 2000
MSFlexGrid1.Row = i
MSFlexGrid1.Col = j
Set MSFlexGrid1.CellPicture = LoadPicture("d:\"& i*j+J+1 &".jpg")
Next
Next
End Sub