Result11 = Result11.Select(Function(Value As Integer) If(Value < MAX, Value, Rand.Next(0, MAX)))

(Result1.Concat(Result3).Concat(Result3)

' -------
' Methods
' -------
'
' Properties.Brightness
' Properties.Contrast
' Properties.Gamma
' Properties.HSL
' Properties.Hue
' Properties.Opacity
'
' Effects.CameraView
' Effects.ColorSubstitution
' Effects.ConvertToBlackWhite
' Effects.ConvertToNegative
' Effects.ConvertToSepia
' Effects.Crop
' Effects.DistortCorners
' Effects.DropShadow
' Effects.Fade
' Effects.Feather
' Effects.Filmstrip
' Effects.Flip
' Effects.FocalGrayscale
' Effects.GaussianBlur
' Effects.GlassTable
' Effects.Glow
' Effects.MakeTransparent
' Effects.PerspectiveReflection
' Effects.PerspectiveView
' Effects.Pixelate
' Effects.RemoveColor
' Effects.RemoveTransparency
' Effects.Resize
' Effects.Rotate
' Effects.RoundCorners
' Effects.Scale
' Effects.Sharpen
' Effects.Silhouette
' Effects.Skew
' Effects.Solarize
' Effects.Stretch
' Effects.Tint

        Dim [ImageElement] As ImageElement = ImageElement.FromFile("C:\Image.png")
        Dim [TextElement] As New TextElement With {.Text = "Hello World!"}
 
        ImageDrawHelper.Properties.Brightness([ImageElement], 50)
        ImageDrawHelper.Properties.Contrast([ImageElement], 50)
        ImageDrawHelper.Properties.Gamma([ImageElement], 50)
        ImageDrawHelper.Properties.HSL([ImageElement], 50, 50, 50)
        ImageDrawHelper.Properties.Hue([ImageElement], 50)
        ImageDrawHelper.Properties.Opacity([ImageElement], 50)
 
        ImageDrawHelper.Effects.CameraView([ImageElement], 30, 25)
        ImageDrawHelper.Effects.ColorSubstitution([ImageElement], Color.Black, Color.Fuchsia, 10)
        ImageDrawHelper.Effects.ConvertToBlackWhite([ImageElement], DitherMethod.Threshold, 53, False)
        ImageDrawHelper.Effects.ConvertToNegative([ImageElement])
        ImageDrawHelper.Effects.ConvertToSepia([ImageElement])
        ImageDrawHelper.Effects.Crop([ImageElement], 0, 10, 200, 160)
        ImageDrawHelper.Effects.DistortCorners([ImageElement], -20, -20, 200, 0, 250, 180, -30, 200)
        ImageDrawHelper.Effects.DropShadow([ImageElement], 60, Color.Lime, 270, 6, 10)
        ImageDrawHelper.Effects.Fade([ImageElement], FadeShape.Oval, FillType.Gradient, GradientShape.Path)
        ImageDrawHelper.Effects.Feather([ImageElement], 5, FeatherShape.Oval)
        ImageDrawHelper.Effects.Filmstrip([ImageElement], FilmstripOrientation.Vertical, 150, 180, 0, Color.Yellow, 5)
        ImageDrawHelper.Effects.Flip([ImageElement], FlipType.Horizontal)
        ImageDrawHelper.Effects.FocalGrayscale([ImageElement], FocalShape.Oval, FillType.Gradient, GradientShape.Path, Color.FromArgb(0, 255, 255, 255), Color.FromArgb(0, 0, 0))
        ImageDrawHelper.Effects.GaussianBlur([ImageElement], 5)
        ImageDrawHelper.Effects.GlassTable([ImageElement], 50, 25)
        ImageDrawHelper.Effects.GlassTable([ImageElement], 50, 25, ReflectionLocation.Custom, 2, 10)
        ImageDrawHelper.Effects.Glow([ImageElement], Color.Red, 80, 8)
        ImageDrawHelper.Effects.MakeTransparent([ImageElement])
        ImageDrawHelper.Effects.PerspectiveReflection([ImageElement], 270, 50, 50, 150, 0)
        ImageDrawHelper.Effects.PerspectiveView([ImageElement], 25, PerspectiveOrientation.LeftToRight)
        ImageDrawHelper.Effects.Pixelate([ImageElement], 20, 0)
        ImageDrawHelper.Effects.RemoveColor([ImageElement], Color.White, 10, ScanDirection.All)
        ImageDrawHelper.Effects.RemoveTransparency([ImageElement])
        ImageDrawHelper.Effects.Resize([ImageElement], 256, 256, LockAspectRatio.WidthBased, Drawing2D.InterpolationMode.Bicubic)
        ImageDrawHelper.Effects.Rotate([ImageElement], 90, Drawing2D.InterpolationMode.Bicubic)
        ImageDrawHelper.Effects.RoundCorners([ImageElement], Corners.All, 120)
        ImageDrawHelper.Effects.RoundCorners([ImageElement], Corners.All, 20, 10, Color.Red)
        ImageDrawHelper.Effects.Scale([ImageElement], 50, 50, Drawing2D.InterpolationMode.Bicubic)
        ImageDrawHelper.Effects.Sharpen([ImageElement])
        ImageDrawHelper.Effects.Silhouette([ImageElement], Color.RoyalBlue)
        ImageDrawHelper.Effects.Skew([ImageElement], SkewType.Parallelogram, -10, SkewOrientation.Horizontal, True)
        ImageDrawHelper.Effects.Solarize([ImageElement])
        ImageDrawHelper.Effects.Stretch([ImageElement], 90, 150)
        ImageDrawHelper.Effects.Tint([ImageElement], Color.Orange)
 
        PictureBox1.BackgroundImage = [ImageElement].GetOutputImage

    ' [ Get Application Path ]
    ' ( By Elektro )
    '
    ' Usage Examples :
    ' MsgBox(GetApplicationPath())
    ' MsgBox(GetApplicationPath(True))
 
    ''' <summary>
    ''' Gets the startup application path.
    ''' </summary>
    ''' <param name="FullPath">
    ''' if set to <c>true</c> returns the full path, 
    ''' otherwise only returns the directory path.
    ''' </param>
    ''' <returns>System.String.</returns>
    Private Function GetApplicationPath(Optional ByVal FullPath As Boolean = False) As String
 
        Select Case FullPath
 
            Case True
                Return IO.Path.Combine(My.Application.Info.DirectoryPath(),
                                       Process.GetCurrentProcess().MainModule.ModuleName)
 
            Case Else
                Return My.Application.Info.DirectoryPath
 
        End Select
 
    End Function

Application.StartupPath

Dim Archivo As String = "Archivo.pdf"

Dim Archivo As String = IO.Path.Combine(IO.Directory.GetCurrentDirectory, "Archivo.pdf")
Dim Archivo As String = IO.Path.Combine(Application.StartupPath, "Archivo.pdf")
Dim Archivo As String = IO.Path.Combine(My.Application.Info.DirectoryPath, "Archivo.pdf")
Dim Archivo As String = IO.Path.Combine(CurDir(), "Archivo.pdf")
Dim Archivo As String = ".\Archivo.pdf"
 
Dim DirectorioActual As String = "" ' Nada

</style>
</head>
<body>
<div id="container">
<div id="wb_Shape1" style="position:absolute;left:519px;top:403px;width:281px;height:415px;text-align:left;z-index:4;">
<img src="images/img0001.png" id="Shape1" alt="" title="" style="border-width:0;width:281px;height:415px"></div>
<div id="wb_Shape2" style="position:absolute;left:535px;top:418px;width:249px;height:35px;text-align:left;z-index:5;">
<img src="images/img0002.png" id="Shape2" alt="" title="" style="border-width:0;width:249px;height:35px"></div>
<div id="wb_Image2" style="position:absolute;left:0px;top:129px;width:800px;height:264px;text-align:left;z-index:6;">
<img src="images/wwb_londonskyline.jpg" id="Image2" alt="" style="width:798px;height:262px;"></div>
<div id="wb_Shape4" style="position:absolute;left:0px;top:403px;width:519px;height:173px;text-align:left;z-index:7;">
<img src="images/img0003.png" id="Shape4" alt="" title="" style="border-width:0;width:519px;height:173px"></div>
<div id="wb_Text5" style="position:absolute;left:21px;top:425px;width:465px;height:92px;text-align:left;z-index:8;border:0px #C0C0C0 solid;overflow-y:hidden;background-color:transparent;">
<div style="font-family:Arial;font-size:13px;color:#000000;">
<div style="text-align:left"><span style="font-family:'Trebuchet MS';font-size:15px;color:#6CBE00;"><strong>Welcome to our website</strong></span></div>
<div style="text-align:left"><span style="font-family:'Trebuchet MS';font-size:12px;color:#CED1D6;">Lorem ipsum dolor sit amet, autem consectetuer adipiscing elit, sed diam </span></div>
<div style="text-align:left"><span style="font-family:'Trebuchet MS';font-size:12px;color:#CED1D6;">nonummy nibh euismod iusto tincidunt ut laoreet dolore magna aliquam erat </span></div>
<div style="text-align:left"><span style="font-family:'Trebuchet MS';font-size:12px;color:#CED1D6;">volutpat. Ut wisi enim ad minim veniam, quis nostrud facer exerci tation </span></div>
<div style="text-align:left"><span style="font-family:'Trebuchet MS';font-size:12px;color:#CED1D6;">ullamcorper suscipit lobortis nisl ut aliquip ex ea delenit commodo consequat.</span></div>
</div>
</div>

<body>
 
	<div id="container">
 
		<div id="wb_Shape1" 
		     style="position:absolute;left:519px;top:403px;width:281px;height:415px;text-align:left;z-index:4;">
 
		<img src="images/img0001.png" 
		     id="Shape1" 
		     alt="" 
		     title="" 
		     style="border-width:0;width:281px;height:4150px">
	</div>
 
	<div style="text-align:left">
 
		<span style="font-family:'Trebuchet MS';font-size:11px;color:#7B7E83;">
			erat volutpat.
		</span>
 
	</div>
 
</body>