Private Sub dgAllgemein_MouseHover(ByVal sender As Object, ByVal e As _
     System.EventArgs) Handles dgAllgemein.MouseHover
 
        Dim mouse_col As Integer
        Dim mouse_row As Integer
        mouse_col = Me.DataGrid1.HitTest(Me.MousePosition).Column()
        mouse_row = Me.DataGrid1.HitTest(Me.MousePosition).Row()
        MsgBox(mouse_col & " " & " " & mouse_row)
 
 
End Sub