fetch cell position using mouse position tablelayoutpanel vb.net

Private Sub AaaGrid1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles tlp.MouseMove
       Dim Row As Integer = 0
       Dim VSpace As Integer = 0
       For Each h As Integer In tlp.GetRowHeights()
           Dim Column As Integer = 0
           Dim HSpace As Integer = 0
           For Each w As Integer In tlp.GetColumnWidths()
               Dim Rect As New Rectangle(HSpace, VSpace, w, h)
               If (Rect.Contains(e.Location)) Then
                   Try
                       If Column > RowCollectionTagAry.Count And Row > ColCollectionTagAry.Count Then
                           Me.FindForm.Text = "col = " & Column - RowCollectionTagAry.Count & "  row = " & Row - ColCollectionTagAry.Count
                       End If
                   Catch ex As Exception
                   End Try
                   Return
               End If
               HSpace += w
               Column += 1
           Next
           VSpace += h
           Row += 1
       Next
   End Sub