Private Sub dataGrid1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGrid1.MouseDown
            msg = DataGrid1.HitTest(e.X, e.Y)
            gridMouseDownTime = DateTime.Now
            Console.WriteLine("dataGrid1_MouseDown  ")

        End Sub

Private Sub TextBoxMouseDownHandler(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
            msg = DataGrid1.HitTest(e.X, e.Y)
            'If (DateTime.Now < gridMouseDownTime.AddMilliseconds(SystemInformation.DoubleClickTime)) Then
            MessageBox.Show("GridDoubleClick")
            MsgBox(msg.Row)

            'End If
            Console.WriteLine("TextBoxMouseDownHandler  ")

        End Sub

Private Sub TextBoxMouseDownHandler(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
            Dim dv As DataRowView
            Dim cm As CurrencyManager
                If msg.Type = DataGrid.HitTestType.Cell Then
                cm = Me.BindingContext(Me.DataSet11, Me.DataGrid1.DataMember)
                dv = cm.Current
                MsgBox(dv.Row.Item(msg.Column))
            End If
            Console.WriteLine("TextBoxMouseDownHandler  ")

        End Sub