Dim host As HostField 
Dim point As ScreenPoint
            
'Get the screen position (row , column)
point = host.EndPosition
            
'Get the row location.
Dim row As Integer = point.Row
'Get the column location.
Dim column As integer column = point.Column