'Benötigt wird ein Flexgrid
Private Sub Form_Activate()
 
With MSFlexGrid1
  .Redraw = False
  .Row = .FixedRows
  .Col = .FixedCols
  .RowSel = .Rows - 1
  .ColSel = .Col
  .FillStyle = flexFillRepeat
  .CellAlignment = 3
  With .Font
    .Name = "Marlett"
    .Size = 10
  End With
  .Text = "a"
  .FillStyle = flexFillSingle
  .Row = .FixedRows
  .Col = .FixedCols
  .Redraw = True
End With
 
End Sub
 
Private Sub MSFlexGrid1_Click()
 
With MSFlexGrid1
  If .MouseRow >= .FixedRows And .MouseCol = .FixedCols Then
    .Text = IIf(.Text = "", "a", "")
  End If
End With
 
End Sub

Gruss,

Zardoz