or

Dim objl_TELERIK_CAROUSEL As New Telerik.WinControls.UI.RadCarouselctll_PANEL_3.Controls.Add(objl_TELERIK_CAROUSEL)objl_TELERIK_CAROUSEL.Dock = DockStyle.Fillobjl_TELERIK_CAROUSEL.Name = ctll_PANEL_3.Name & "_TELERIK_CAROUSEL"objl_TELERIK_CAROUSEL.AnimationsToApply = Telerik.WinControls.UI.Animations.Noneobjl_TELERIK_CAROUSEL.AnimationDelay = 0'objl_TELERIK_CAROUSEL.AnimationFrames = 0objl_TELERIK_CAROUSEL.EasingType = Telerik.WinControls.RadEasingType.Defaultobjl_TELERIK_CAROUSEL.ItemReflectionPercentage = 0objl_TELERIK_CAROUSEL.AutoScroll = Falseobjl_TELERIK_CAROUSEL.ButtonNext.Location = New System.Drawing.Point(objl_TELERIK_CAROUSEL.ButtonNext.Bounds.X, CInt(objl_TELERIK_CAROUSEL.Height / 2))For Each strl_FILE As String In My.Computer.FileSystem.GetFiles("C:\Users\Public\Pictures\Sample Pictures") If strl_FILE.EndsWith(".jpg") Then Dim carouselItem As Telerik.WinControls.UI.RadButtonElement = New Telerik.WinControls.UI.RadButtonElement carouselItem.Image = New Bitmap(New Bitmap(strl_FILE), objl_TELERIK_CAROUSEL.Size.Width, objl_TELERIK_CAROUSEL.Size.Height) carouselItem.Alignment = ContentAlignment.TopLeft carouselItem.DisplayStyle = Telerik.WinControls.DisplayStyle.Image carouselItem.FitToSizeMode = Telerik.WinControls.RadFitToSizeMode.FitToParentBounds carouselItem.ImageAlignment = ContentAlignment.TopLeft carouselItem.AutoSize = True carouselItem.AutoSizeMode = Telerik.WinControls.RadAutoSizeMode.Auto objl_TELERIK_CAROUSEL.Items.Add(carouselItem) End IfNext