If you set the ResourcesPerView property first to a value greater than the available resources in RadScheduler and then add even more resources, incorrect layout is displayed. Please refer to the attached gif file. However, note that if you first add the resources and then manipulate the ResourcesPerView property, everything is OK. 

Workaround: set the ResourcesPerView property considering the available resources in RadScheduler

    Private Sub RadSpinEditor2_ValueChanged(sender As Object, e As EventArgs) Handles RadSpinEditor2.ValueChanged
        Me.RadScheduler1.Resources.Clear()

        For i As Integer = 1 To Me.RadSpinEditor2.Value
            Dim resource As New Telerik.WinControls.UI.Resource()
            resource.Id = New EventId(i)
            resource.Name = "Resource" & i
            resource.Visible = True
            resource.Color = Color.LightBlue

            Me.RadScheduler1.Resources.Add(resource)
        Next i
         
        Me.RadScheduler1.GroupType = GroupType.Resource
        Me.RadScheduler1.ActiveView.ResourcesPerView = Math.Min(Me.RadScheduler1.Resources.Count, Me.RadSpinEditor1.Value)
    End Sub