Mostrare il testo contenuto in una cella di una GridVew al semplice passare del puntatore del mouse

Il caso preso in esame è quello in cui, al passare del puntatore del mouse - senza tenere premuto alcun suo tasto - su una cella di una GridView, si estrae e si mostra il testo in essa contenuto.
Sarà necessario assegnare il valore "True" alla Proprietà ".Tracking" del Form.

Presentiamo un semplice un esempio, nel quale il testo ricavato della cella sarà mostrato in un Tooltip:

Public Sub Form_Open()
 
 Dim c, r As Byte
 
 With GridView1
   .Columns.Count = 3
   .Rows.Count = 6
   .Tracking = True
 End With
 
' Scriviamo un qualsiasi testo in ciascuna cella della "GridView":
 For c = 0 To GridView1.Columns.Max
   For r = 0 To GridView1.Rows.Max
     GridView1[r, c].Text = CStr(c) & "," & CStr(r)
   Next
 Next
 
End

Public Sub GridView1_MouseMove()
 
 GridView1.Tooltip = Null
 
 If (GridView1.RowAt(Mouse.Y) > -1) And (GridView1.ColumnAt(Mouse.X) > -1) Then
   GridView1.Tooltip = "<Font Color=red>" & GridView1[GridView1.RowAt(Mouse.Y), GridView1.ColumnAt(Mouse.X)].Text
 Endif
 
End