[أبو عمر]

اكيد ممكن

كود :

Private Sub Form_Load()
   With MSFlexGrid1
       .ColWidth(0) = 400
       .RowHeightMin = 300
       .Rows = 10
       .Cols = 3
       .Row = 1
       .Col = 0
       .RowSel = .Rows - 1
       .FillStyle = flexFillRepeat
       .CellFontName = "Wingdings"
       .CellFontSize = 12
       .CellAlignment = flexAlignCenterCenter
       .Text = "q"
       .FillStyle = flexFillSingle
       .Row = 1
       .Col = 1
   End With
End Sub

Private Sub MSFlexGrid1_Click()
   With MSFlexGrid1
       If .MouseCol = 0 Then
           If .TextMatrix(.Row, 0) = "q" Then
               .TextMatrix(.Row, 0) = "þ"
           Else
               .TextMatrix(.Row, 0) = "q"
           End If
       End If
   End With
End Sub