moving large numbers of controls

 Private Sub DGV_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles DGV.Scroll
        If e.NewValue <> e.OldValue Then
            For i = 0 To DGV.Controls.Count - 1
                If TypeOf DGV.Controls.Item(i) Is Windows.Forms.Label Then
                    If e.ScrollOrientation = ScrollOrientation.HorizontalScroll Then
                        DGV.Controls(i).Location = New System.Drawing.Point(DGV.Controls(i).Location.X + ((e.OldValue - e.NewValue)), DGV.Controls(i).Location.Y)
                    Else
                        DGV.Controls(i).Location = New System.Drawing.Point(DGV.Controls(i).Location.X, DGV.Controls(i).Location.Y + ((e.OldValue - e.NewValue) * 20))
                    End If
                End If
 
            Next i
            Application.DoEvents()
 
            If e.ScrollOrientation = ScrollOrientation.VerticalScroll Then
                For i = 0 To PanelPokoje.Controls.Count - 1
                    If TypeOf PanelPokoje.Controls.Item(i) Is Windows.Forms.Label Then
                        PanelPokoje.Controls(i).Location = New System.Drawing.Point(PanelPokoje.Controls(i).Location.X, PanelPokoje.Controls(i).Location.Y + ((e.OldValue - e.NewValue) * 20))
                    End If
 
                Next i
                Application.DoEvents()
            Else
                For i = 0 To PanelDaty.Controls.Count - 1
                    If TypeOf PanelDaty.Controls.Item(i) Is Windows.Forms.Label Then
                        PanelDaty.Controls(i).Location = New System.Drawing.Point(PanelDaty.Controls(i).Location.X + ((e.OldValue - e.NewValue)), PanelDaty.Controls(i).Location.Y)
                    End If
                Next i
                Application.DoEvents()
            End If
        End If
 
    End Sub