Right! Thanks....

errrh .... and that code, you eat that with a fork or with a spoon :).

You know how that should be implemented? As a partial class? And how should it be called?

Here's that code again :

Imports System.Drawing
Imports System.Runtime.InteropServices

Private paintFrozen As Integer
Private Const WM_SETREDRAW As Integer = 11

Property FreezePainting() As Boolean
    Get

        Return (paintFrozen > 0)

    End Get
    Set(ByVal Value As Boolean)

        If ((Value AndAlso IsHandleCreated) _
                    AndAlso Me.Visible) Then
            If (0 = paintFrozen) Then
                paintFrozen = paintFrozen + 1
                SendMessage(Handle, WM_SETREDRAW, 0, 0)
            Else
                paintFrozen = paintFrozen + 1
            End If
        End If
        If Not (Value) Then
            If (paintFrozen = 0) Then
                Return
            End If
            paintFrozen = paintFrozen - 1
            If 0 = paintFrozen Then
                SendMessage(Handle, WM_SETREDRAW, 1, 0)
                Invalidate(True)
            End If
        End If

    End Set
End Property

<DllImport("User32", CharSet:=0, SetLastError:=False, ExactSpelling:=False, PreserveSig:=False, CallingConvention:=CallingConvention.Winapi)> _
Private Shared Function SendMessage(ByVal hWnd As System.IntPtr, ByVal msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Boolean
End Function

>>I have a form with a tabpagecontol on it. In order to have all the fields on the different pages refreshed I found out I have to do something like
>>

>>       For i As Integer = 1 To Me.TpgBase1.TabPages.Count
>>            Me.TpgBase1.SelectTab(i - 1)
>>        Next
>>        Me.TpgBase1.SelectTab(0)
>>

>>
>>Now that gets me some ugly mickey mousing on my form, so I'm looking for a way to "freeze" the screen while I do that, but suspendlayout, resumelayout do not have any effect. Here's the full code.
>>
>>

>>       Me.BestelHCRUD.Fill(Me.BestelDS.BestH, Me.obzBestel.pk)
>>        Me.SuspendLayout()
>>        For i As Integer = 1 To Me.TpgBase1.TabPages.Count
>>            Me.TpgBase1.SelectTab(i - 1)
>>        Next
>>        Me.TpgBase1.SelectTab(0)
>>        Me.ResumeLayout()
>>

>>
>>Thanks and kind regards,
>>
>>Marc
>
>
>Marc,
>
>Have a look at this old message Re: UI questions Thread #766067 Message #766090
>It uses api