Syncfusion - GridControl - How to set the Supertooltip for the cells on Mouse move

Syncfusion - GridControl  -  How to set the Supertooltip for the cells on Mouse move 

Below is the code.

Private Sub gridControl1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs)
Dim superToolTip1 As New SuperToolTip()  
Dim row, col As Integer
  Dim cc As GridCurrentCell = Me.gridControl1.CurrentCell
    If Me.gridControl1.PointToRowCol(New Point(e.X, e.Y), row, col) AndAlso (col <> hooverCol OrElse row <> hooverRow) Then
                hooverCol = col
                hooverRow = row
                Dim rect As Rectangle = Me.gridControl1.GetCellRenderer(row, col).GetCellBoundsCore(row, col, False)
                Dim screenPoint As Point = Me.gridControl1.PointToScreen(New Point(rect.Left, rect.Top))
                Dim tinfo As New ToolTipInfo()
                tinfo.Header.Text = String.Format(" row {0}, column {1}", hooverRow, hooverCol)
                superToolTip1.Show(tinfo, screenPoint)
    End If
End Sub