Private Sub grid2_MouseDown(ByVal sender As Object,ByVal e As MouseEventArgs) Handles grid2.MouseDown
Dim myGrid As DataGrid = CType(sender, DataGrid)
Dim hti As DataGrid.HitTestInfo
hti = myGrid.HitTest(e.X, e.Y)
Dim message As String = "You clicked "
End Sub