Dim i&
 
Me.ScaleMode = 3
With MSFlexGrid1
.Move 0, 0, 200, 200
.Rows = 2
.Cols = 2
.FixedRows = 0
.FixedCols = 0
.MergeCells = flexMergeRestrictRows
.ColAlignment(0) = 4
.MergeRow(1) = True
For i = 0 To 3
  .TextArray(i) = Choose(i + 1, "Papier", "Schere", "Stein", "Stein")
Next i
End With