Private Sub cDataGrid_MouseDown
(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) 
Handles MyBase.MouseDown
                Dim myGrid As DataGrid = CType(sender, DataGrid)
                Dim hti As System.Windows.Forms.DataGrid.HitTestInfo
                hti = myGrid.HitTest(e.X, e.Y)
                Dim aktcol as integer = hti.Column
        End Sub