Option Explicit
Const rn = 5
Const cn = 3
Private Sub Form_Load()
MSFlexGrid1.Rows = rn
MSFlexGrid1.Cols = cn
Dim i As Integer, j As Integer
For i = 0 To rn - 1
For j = 0 To cn - 1
MSFlexGrid1.Row = i
MSFlexGrid1.Col = j
MSFlexGrid1.Text = i & j
If i = 0 Or j = 0 Then
MSFlexGrid1.CellAlignment = 3
Else
MSFlexGrid1.CellAlignment = 1
End If
Next j
Next i
End Sub