Private Sub DataGrid_GiveFeedback(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.GiveFeedbackEventArgs) Handles DataGrid.GiveFeedback
    e.UseDefaultCursors = False
    Cursor.Current = New Cursor(Me.Icon.Handle)
End Sub