Dim myBrush As Brush
 
 
        Dim OriginalImg As Image = Image.FromFile("logo.png")
        Dim NewImgRect As Rectangle = New Rectangle(0, 0, PictureBox1.Width, _
          PictureBox1.Height)
        'myBrush = New LinearGradientBrush(NewImgRect, Color.White, 
        ' Color.White, LinearGradientMode.Vertical)
        Dim NewImg As New Bitmap(NewImgRect.Width, NewImgRect.Height, _
          Imaging.PixelFormat.Format24bppRgb)
 
        Dim G As Graphics = Graphics.FromImage(NewImg)
        G.Clear(Color.White)
        Dim NewImagePos As New Point(PictureBox1.Width - OriginalImg.Width, 0)
        G.DrawImage(OriginalImg, NewImagePos)
        G.Dispose()
        'PictureBox1.CreateGraphics.FillRectangle(myBrush, NewImgRect)
        PictureBox1.Image = NewImg