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.

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