Laufzettel DTB, USTV Anpassungen, USTV Kundenstamm, Docs, Messanger DoubleBuffer

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb

@@ -1,5 +1,6 @@
 Imports System.Drawing
 Imports System.IO
+Imports System.Reflection
 Imports System.Threading
 Imports System.Web.UI.WebControls.WebParts
 Imports System.Windows.Forms
@@ -27,10 +28,17 @@ Public Class frmMessenger
         InitializeComponent()
 
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        Me.DoubleBuffered = True
+        SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
+        UpdateStyles()
 
     End Sub
 
+    Public Sub SetDoubleBuffered([Control] As Control)
+        [Control].GetType().InvokeMember("DoubleBuffered", BindingFlags.SetProperty Or
+BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object() {True})
 
+    End Sub
 
     Sub initEMOJI_PATH()
 
@@ -82,7 +90,7 @@ Public Class frmMessenger
 
     Private Sub frmMessenger_Load(sender As Object, e As EventArgs) Handles Me.Load
         initEMOJI_PATH()
-
+        SetDoubleBuffered(MyFlowLayoutPanel1)
         rtbChatMessage.AllowDrop = True
         MSG_LISTENDER.START()
         TimerNEW_MESSAGE.Enabled = True