MDMFunctions, etc.

SDL/frmMain.vb

@@ -2,6 +2,7 @@
 Imports Microsoft.Office.Interop
 Imports System.Drawing.Drawing2D
 Imports VERAG_PROG_ALLGEMEIN
+Imports System.Reflection
 
 
 Public Class frmMain
@@ -51,6 +52,12 @@ Public Class frmMain
             Label9.Visible = True
         End If
     End Sub
+    Public Shared Sub EnableDoubleBuffered(ByRef dgv As DataGridView)
+        Dim dgvType As Type = dgv.[GetType]()
+        Dim pi As PropertyInfo = dgvType.GetProperty("DoubleBuffered", BindingFlags.Instance Or BindingFlags.NonPublic)
+        pi.SetValue(dgv, True, Nothing)
+    End Sub
+
 
 
     Private Sub frmMain_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown