ma come non è editabile che ci sono esempi OVUNQUE, questo è un esempio:

Private Sub FLEX_Click()
On Error Resume Next
Dim indice As Long
Static indiceprecedente As Integer
casella.Visible = False

casella.Left = FLEX.Left + FLEX.CellLeft
casella.Top = FLEX.Top + FLEX.CellTop
casella.Height = FLEX.CellHeight
casella.Width = FLEX.CellWidth
casella.BackColor = &H80FFFF
casella.Text = FLEX.Text

casella.ZOrder
casella.Visible = True
casella.SetFocus

indiceprecedente = indice
End Sub

...