Private Sub Form_Load()
    'gibt dem Rand Nummern
    MSHFlexGrid1.Row = 0
    For a = 1 To MSHFlexGrid1.Cols - 1
        MSHFlexGrid1.Col = a
        MSHFlexGrid1.Text = a
    Next a
    MSHFlexGrid1.Col = 0
    For a = 1 To MSHFlexGrid1.Rows - 1
        MSHFlexGrid1.Row = a
        MSHFlexGrid1.Text = a
    Next a
 
End Sub
 
Private Sub MSHFlexGrid1_EnterCell()
    Dim nz, ns As Long
    ns = MSHFlexGrid1.Col
   nz = MSHFlexGrid1.Row
 
    MSHFlexGrid1.Col = ns
   MSHFlexGrid1.Row = 0
   MSHFlexGrid1.Font.Bold = True
   MSHFlexGrid1.Row = 0
   MSHFlexGrid1.Row = ns
   MSHFlexGrid1.Font.Bold = True
End Sub