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.
Va detto che la Proprietà ".Tracking" della Classe GridView è impostata in modo predefinito sul valore "True"; e pertanto non dovrà essere modifciata.

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
 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()

 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