vers

Aviso/usrcntlAktDetails.vb

@@ -44,7 +44,7 @@ Public Class usrcntlAktDetails
     Dim AVISO As cAviso = Nothing
     Dim WithEvents timerSendRows As New Timer
 
-    Dim painted = False ' Damit gridVermerke Formattierung nicht dauernd anspringt..
+    Dim painted As Boolean = False ' Damit gridVermerke Formattierung nicht dauernd anspringt..
 
     Public Sub New()
         InitializeComponent()
@@ -1302,8 +1302,9 @@ Public Class usrcntlAktDetails
     Private Sub gridVermerke_Paint(sender As Object, e As PaintEventArgs) Handles gridVermerke.Paint
         If painted Then Exit Sub
         If dgvSendungen.RowCount = 0 Then Exit Sub
-        gridVermerke_Paint(gridVermerke)
         painted = True
+        gridVermerke_Paint(gridVermerke)
+        painted = False
     End Sub
     Shared Sub gridVermerke_Paint(gridvermerke As DataGridView)